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Introduction 



Purpose of this Publication 

This publication is designed to be used by program- 
mers in conjunction with the publication, IBM General 
Information Manual, COBOL, Form F28-8053, and 
contains additional specifications required to write 
cobol programs to be processed under the 1410/70X0 
Operating System. 

Purpose of the Language 

The similarity between cobol and ordinary business 
English provides programmers with a convenient 
method for writing source programs. Source program 
statements are translated directly into machine lan- 
guage by the cobol compiler, which takes full advan- 
tage of the capabilities of the ibm 1410 and 7010 Data 
Processing Systems. 

Prerequisite and Related Information 

A basic knowledge of cobol and the ibm 1410/7010 
Operating System is required, and a knowledge of the 
ibm 1410 or 7010 Data Processing System is recom- 
mended in order to fully understand the information 
presented in this publication. 

Anyone without this prior knowledge is requested to 
read the following publications: 

IBM General Information Manual, COBOL, Form 
F28-8053 

IBM 1410/7010 Operating System; Basic Concepts, 

Form C28-0318 
IBM 1410 Principles of Operation, Form A22-0576 or 
IBM 7010 Principles of Operation, Form A22-6726 

The following ibm 1410/7010 Operating System pub- 
lications are mentioned in this manual and should be 
available for reference purposes: 

System Monitor, Form C28-0319 

System Generation, Form C28-0352 

Basic Input/Output Control System, Form C28-0322 

Operators Guide, Form C28-0351 

In order to make full use of the 1410/7010 cobol 
language, and to run cobol programs within the frame- 
work of the Operating System, the reader must be fa- 
miliar 1 with the contents of the publication, System 
Monitor. 



Machine Requirements 

The minimum machine requirements for compiling 
programs using the cobol compiler are included in the 
publication, System Generation, Form C28-0352. How- 
ever, machine requirements for running an object pro- 
gram depend upon the nature of the program. 

Acknowledgment 

In accordance with the requirements of the official gov- 
ernment manual, COBOL-1961-Extended, Form num- 
ber 1962-0668996, describing cobol (obtained by send- 
ing a purchase order and $1.25 to: Superintendent of 
Documents, U. S. Government Printing Office, Wash- 
ington 25, D. C), the following extract from that man- 
ual is presented for the information and guidance of 
the user: 

"This publication is based on the cobol System devel- 
oped in 1959 by a committee composed of government 
users and computer manufacturers. The organizations 
participating in the original development were: 

Air Materiel Command, United States Air Force 

Bureau of Standards, United States Department of 
Commerce 

Burroughs Corporation 

David Taylor Model Basin, Bureau of Ships, United 
States Navy 

Electronic Data Processing Division, Minneapolis- 
Honeywell Regulator Company 

International Business Machines Corporation 

Radio Corporation of America 

Sylvania Electric Products, Inc. 

univac Division of Sperry Rand Corporation 

"In addition to the organizations listed above, the 
following other organizations participated in the work 
of the Maintenance Group: 

Allstate Insurance Company 

The Bendix Corporation, Computer Division 

Control Data Corporation 

E. I. du Pont de Nemours and Company 

General Electric Company 

General Motors Corporation 

Lockheed Aircraft Corporation 

The National Cash Register Company 

Philco Corporation 
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Royal McBee Corporation 

Standard Oil Company (New Jersey) 

United States Steel Corporation 
"This cobol-61 manual is the result of contributions 
made by all of the above-mentioned organizations. No 
warranty, expressed or implied, is made by any con- 
tributor or by the committee as to the accuracy and 
functioning of the programming system and language. 
Moreover, no responsibility is assumed by any con- 
tributor, or by the committee, in connection therewith. 

"It is reasonable to assume that a number of im- 
provements and additions will be made to cobol. Every 
effort will be made to insure that the improvements 
and corrections will be made in an orderly fashion, 
with due recognition of existing users' investments in 
programming. However, this protection can be posi- 
tively assured only by individual implementors. 

"Procedures have been established for the main- 
tenance of cobol. Inquiries concerning the procedures 
and the methods for proposing changes should be di- 
rected to the Executive Committee of the Conference 
on Data Systems Languages. 

"The authors and copyright holders of the copy- 
righted material used herein: flow-matic*. Program- 
ming for the univac* I and II, Data Automation Sys- 
tems © 1958, 1959, Sperry Rand Corporation; ibm 
Commercial Translator, Form No. F28-8013, 
copyrighted 1959 by ibm; fact, dsi 27A5260-2760, copy- 
righted 1960 by Minneapolis-Honeywell, have spe- 
cifically authorized the use of this material, in whole 
or in part, in the cobol specifications. Such authoriza- 
tion extends to the reproduction and use of cobol 
specifications in programming manuals or similar pub- 
lications. 

"Any organization interested in reproducing the 
cobol report and initial specifications, in whole or in 
part, using ideas taken from this report or utilizing this 
report as the basis for an instruction manual or any 
other purpose is free to do so. However, all such or- 
ganizations are requested to reproduce this section as 
part of the introduction to the document. Those using 
a short passage, as in a book review, are requested to 
mention 'cobol' in acknowledgment of the source, but 
need not quote this entire section." 



*Trademark of Sperry Rand Corporation 



COBOL Language Forms and Notations 

Throughout this publication, all the basic forms are 
prescribed for the various verbs, clauses, entries, and 
other essential elements of the 1410/7010 cobol lan- 
guage. These are generalized forms intended to guide 
the programmer in writing his own statements. If state- 
ments are written in formats other than those presented 
in this manual, the compilation will result in error. 

The following rules of notation have been followed 
in the presentation of these forms: 

1. All words printed entirely in capital letters are 
cobol words; i.e., words that have preassigned mean- 
ings in the cobol system. 

2. All underlined words are required unless the por- 
tion of the format containing them is itself optional; 
i.e., enclosed in square brackets. These are key words 
and if any such word is missing or is incorrectly 
spelled, it is an error in the program. 

3. All cobol words not underlined may be included 
or omitted at the option of the programmer. These 
words are optional and are used only for the sake of 
readability. Misspelling, however, constitutes an error. 

4. All italicized words represent information that 
must be supplied by the programmer. The nature of 
the information required is indicated in each case. In 
most instances, the programmer will be required to 
provide an appropriate data-name, procedure-name, 
literal, etc. 

5. Material enclosed in square brackets [ ] may be 
used or omitted as required by the programmer. 

6. When material is enclosed in braces { }, only one 
of the enclosed items is required; the others are to be 
omitted. The choice is to be made by the programmer. 

7. Punctuation, where shown, is essential. Other 
punctuation may be inserted by the programmer in 
accordance with the rules specified in the General 
Information Manual. 

8. In certain cases, a succession of operands or 
other elements may be used in the same statement. 
In such a case, this possibility is indicated by the use 
of three dots following the item affected. The dots ap- 
ply to the last complete element preceding them; 
thus, if a group of operands and key words are enclosed 
within brackets, and three dots precede the closing 
bracket, the entire group must be repeated if any 
repetition is required, not merely the last operand. 



Identification Division 



The information specified in the Identification Divi- 
sion of the source program allows the programmer to 
identify or label his program, and provide other per- 
tinent information concerning the program. This divi- 
sion must precede the other divisions when the source 
program is presented to the compiler. The over-all 
structure of the Identification Division is: 

IDENTIFICATION DIVISION. 
PROGRAM-ID. program-name. 



AUTHOR, author-name 



] 



INSTALLATION, any sentence or group of sentences. 



DATE-WRITTEN , any sentence or group of sentences. 



DATE-COMPILED , any sentence or group of sentences. I 



SECURITY, any sentence or group of sentences. 



REMARKS, any sentence or group of sentences. 



Usage of the ident* portion of the program-id source 
statement is explained in the section, "1410/7010 
cobol Compiler Requirements." 

For additional details concerning the Identification 
Division, see the General Information Manual. 



^Columns 73-80 of the COBOL Program Sheet ( Reference For- 
mat) 
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Environment Division 



In this part of the cobol source program, the pro- 
grammer describes to the compiler the physical char- 
acteristics of the ibm 1410 or 7010 System that will 
be used to compile the source program, and the system 
that will be used to execute the object program. This 
division must immediately follow the Identification 
Division when the source program is submitted to the 
compiler. 

Structure of the Environment Division 

The over-all structure of the Environment Division for 
a source program is given below for reference pur- 
poses: 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 

SOURCE-COMPUTER. . 

OBJECT-COMPUTER. . 

SPECIAL-NAMES. . 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. . 

I-O-CONTROL. . 

Each of the subdivisions of the Environment Divi- 
sion is discussed in the following pages. This discussion 
is in terms of the ibm 1410/7010 cobol compiler, and 
therefore includes specifications not contained in the 
General Information Manual. 



Configuration Section 

The three paragraphs of the Configuration Section 
specify, respectively, the computer on which the cobol 
compiler is to be run, the computer on which the 
object program is to be run, and the names of the 
machine devices and switch conditions referred to by 
the programmer in the Procedure Division of his source 
program. 

SOURCE-COMPUTER Paragraph 

The purpose of this paragraph is to specify the com- 
puter on which the cobol compiler is to run to com- 
pile the source program. The general form of this 
paragraph for the 1410/7010 cobol compiler is: 

SOURCE-COMPUTER. i IBM ' 1410 l- 
) IBM-7010 ( 

Additional information regarding the source com- 
puter (e.g., actual core-storage size, core storage avail- 
able, etc.) is contained in the Resident Monitor's Com- 
munication Region; therefore, no additional entries are 
permitted in this paragraph. (See System Monitor.) 



OBJECT-COMPUTER Paragraph 

The purpose of this paragraph is to specify the com- 
puter on which the object program is to be executed. 
The general form of this paragraph is: 



OBJECT-COMPUTER. 



IBM-1410 ) 
IBM-7010 f" 



SPECIAL-NAMES Paragraph 

This optional paragraph equates mnemonic-names 
with device-names representing certain system units 
or the console printer, and equates condition-names 
with the status of the system's Standard Input Unit 
end-of-file switch and/or a switch in the Resident 
Monitor's Communication Region. The general form 
of this paragraph is : 

SPECIAL-NAMES. device-name-1 IS mnemonic-name- 1 



' 



device-name-2 IS mnemonic-name-2 



...J. 



[ 



MONITOR-SWITCH 



literal-1 STATUS IS_ condition-name-1 

| Uteral-2 STATUS IS condition-name-2 • • • 1 



[■ 



I-O-SWITCH EOF-SIU 



[ ON STATUS JS condition-name-^ 1 

|" oFF STATUS IS_ condition-name-4~\ . 



DEVICE-NAMES 



The device-names of the special-names paragraph 
must be chosen from the following list: 



DEVICE-NAME 

CONSOLE-PRINTER 

SYSTEM-OUTPUT-PUNCH 

SYSTEM-OUTPUT-PRINTER 



DESCRIPTION 

the console printer 

the Standard Punch Unit 

the Standard Print Unit 



System units are discussed in the publication, Sys- 
tem Monitor. 



MONITOR-SWITCH 



The monitor-switch is used to represent a single- 
character switch position within the Resident Monitor's 
Communication Region, which is set by the operator 
with the $3x console inquiry. This switch can be re- 
ferred to in the Procedure Division by means of a con- 



dition-name associated with a status of the switch. 
Literal- 1 can be any valid, single-character, non- 
numeric literal. For details concerning this switch 
see "$3x Console Inquiry," in the publication, System 
Monitor. 

I-O-SWITCH EOF-SIU 

The i-o-switch eof-siu is a programmed switch that 
indicates the end-of-file status of the Standard Input 
Unit. This switch can be referred to in the Procedure 
Division by means of a condition-name associated 
with the on or off status of this switch. 

Figure 1 illustrates a sample special-names para- 
graph. 



Input-Output Section 

The Input-Output Section of the Environment Divi- 
sion consists of the file-control paragraph and the 
i-o-control paragraph. 

FILE-CONTROL Paragraph 

This paragraph is used to name each file of the source 
program, identify its medium (i.e., magnetic tape or 
unit-record equipment) and assign each file to a sym- 
bolic unit. Methods of assigning files to magnetic tape 
and unit-record devices are discussed in that order. 

tape files 

The form of the file-control paragraph for files as- 
signed to tape is: 

FILE-CONTROL. SELECT file-name-1 

RENAMING file-name-2\ 

ASSIGN TO device-name 

J RESERVE i inte ^- 1 \ ALTERNATE AREA[S] "]. 

SELECT 



■]■ 



SELECT Clause: Each file to be processed by the 
object program must be named in a select clause. 
Each iile-name must be unique within the source pro- 



gram, and each file must be described by a File 
Description entry in the Data Division. 

RENAMING Option: The renaming option allows 
the programmer to use the File Description of file- 
name-2 in the Data Division for file-name-1. This 
option enables two files to share the same File Descrip- 
tion; it does not allow the two names to be used inter- 
changeably in the program. 

Note: "File-name-2" must precede "file-name-1" in 
the file-control paragraph. If both input and output 
files are involved, the output file must be selected first, 
and must have an associated File Description. Only 
one output file may be associated with a given renam- 
ing clause. 

ASSIGN Clause: Each file must be assigned to a 
symbolic unit. The device-name in the assign clause 
must have the following form for files assigned to 
tape units: 

TAPE-UNIT xxx 

tape-unit is the device name itself and represents 
a symbolic assignment to magnetic tape, "xxx" is the 
name of a symbolic unit (e.g., mrI). (The cobol pro- 
grammer may reference symbolic units as either xxx or 
/xxx/. For details concerning symbolic units see the 
publication, System Monitor.) 

RESERVE Option: This option allows the program- 
mer to specify alternate input or output areas for the 
implementation of overlap processing. One to five 
alternate areas per file may be specified (integer-1). 
If no alternate area is specified or if the reserve op- 
tion is omitted, overlap processing will not take place. 

unit-record files 

The form of the file-control paragraph for files as- 
signed to unit-record equipment is: 

FILE-CONTROL. SELECT file-name-1 
RENAMING file-name-2\ 

ASSIGN TO device-name 

P reserve i tnt ^' 1 i alternate area[s] 1. 



I SELECT 



...} 



£jc 



LiA|Li-|N|A|MieiSi.i i i i i i i i i i 



I I I 



SiYiSiTieiMi-iOiUiTiPiorr.-iPiUiNiCiHi 1I1S1 iPiOiNiCiHi. 



iMlOlNiITTiOiRi-.SiWIIiTiCiHi Alli'i iSiTiAiTiU.Si 1I1S1 



iMiOiNiT.HiLiVi 



i ^ia/i SiTiAiTiUiS. 1X.S1 iWiB-iEiVdUYi-iRiUilM, 
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Figure 1. Special-Names Paragraph 



Environment Division 



The select clause, the renaming option, and the 
reserve option are used as described for tape files. The 
device-name of the assign clause must be chosen from 
the following list: 



DEVICE-NAME 

CARD-READER xxx 



CARD-PUNCH xxx 



PRINTER xxx 



DESCRIPTION 

is the standard device-name for 
the card reader of the 1402 Card 
Read Punch, or the 1442 Card 
Reader, "xxx" is the name of a 
symbolic unit (e.g., MR1).* 
is the standard device-name for 
the card punch of the 1402 Card 
Read Punch, "xxx" is the name 
of a symbolic unit (e.g., MR2).* 
is the standard device-name for 
the 1403 Printer with 132 print 
positions, "xxx" is the name of a 
symbolic unit (e.g., MR3).* 

Note: The above device-names cannot be used for 
units assigned as the Standard Input Unit, Standard 
Punch Unit, and Standard Print Unit for the Operating 
System. 

Figure 2 illustrates a sample file-control para- 
graph. 
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Figure 2. File-Control Paragraph 

l-O-CONTROL Paragraph 

The optional i-o-control paragraph allows the pro- 
grammer to specify padding of short-length blocks of 
blocked, fixed-length output records; to control re- 
winding of tape files; and to establish rerun points. 



The form of this paragraph is: 
I-Q-CONTROL .| aPPLY literal- 1 PADDING ON file-name 

APPLY. . . 
[" APPLY OPEN-WITHOUT-REWIND ON file-name-2~\ 



J APPLY 



■■■] 



*The cobol programmer may reference symbolic units as either 
xxx or /xxx/. For details concerning symbolic units see the 
publication, System Monitor. 



[ rerun every beginning of reel of 
C all files 

\file-name-l [file-name-2 . . .] 

APPLY Option 1: 

APPLY literal-1 PADDING ON file-name 

This option is used to specify padding of short- 
length blocks of a fixed-length, blocked tape-output 
file. Literal-1 can be any valid, single-character, non- 
numeric literal except 4=> =K *>$ and 4 s • If this apply 
option is not specified, the compiler provides padding 
with spaces where required. 

Note that spaces or nines should be used for padding 
characters if the file is to be sorted using the 1410/7010 
Generalized Tape Sorting Program. 
APPLY Option 2: 
APPLY OPEN-WITHOUT-REWIND ON file-name 

This option of the apply clause can be used to facili- 
tate the processing of multi-file tape reels. This option 
only applies to the first reel in which the file is con- 
tained; subsequent reels will be rewound. 

Note: Both apply options can be used for a given 
file. 

RERUN Option: This option allows the programmer 
to specify rerun points (checkpoints) at every begin- 
ning of reel of all files, or of selected files. The tape 
upon which the rerun records are recorded is the 
optional Core Image file. (Information concerning 
checkpoints is contained in the publication, IBM 1410/ 
7010 Operating System; Basic Input/Output Control 
System, Form C28-0322. Information concerning re- 
starting a program from a checkpoint is contained in 
the publication, IBM 1410/7010 Operating System; 
Operators Guide, Form C28-0351.) 
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Data Division 



The Data Division of a cobol source program defines 
the nature and characteristics of the data to be proc- 
essed by the object program. It begins with the header 
data division. Each of the three sections of the Data 
Division also begins with a header, and is followed by 
the word section as shown below: 

DATA DIVISION. 
FILE SECTION. 

File Description Entries 

Record Description Entries 
WORKING-STORAGE SECTION. 

Record Description Entries 
CONSTANT SECTION. 

Record Description Entries 

The File Section describes the input/output files 
with respect to content and organization. It has two 
types of entries: the File Description entry, which 
specifies the physical characteristics and organization 
of a file; and the Record Description entry, which de- 
scribes the individual items contained in the data 
records of the file. 

The Working-Storage Section describes the areas of 
core storage where intermediate results and other 
items aire stored temporarily at object-program execu- 
tion time. 

The Constant Section describes fixed items of data 
which remain unchanged during the running of the 
object program. 

Any section not required in the program being writ- 
ten should be omitted. 



IBM 7470/7070 Files and Records 

The programmer should understand how files and 
records are handled by the ibm 1410/7010 Operating 
System in order to use the cobol language effectively 
in writing the Data Division entries for his source 
program. Information concerning files and records is 
therefore given below, prior to discussion of the cobol 
language specifications for the Data Division. 

Recording Modes 

Information in a data processing system may be re- 
corded in various forms and modes. The following 
discussion pertains to the file-recording modes of the 
ibm 1410 and 7010 Data Processing Systems. For ad- 
ditional details, see the publication, IBM 1410 Princi- 



ples of Operation, Form A22-0526 or IBM 7010 Prin- 
ciples of Operation, Form A22-6726. 

EVEN AND ODD PARITY MODES 

The ibm 1410 and 7010 can record information on mag- 
netic tape and read information from magnetic tape 
in either even-parity mode or odd-parity mode. 

LOAD AND MOVE MODES 

Another 1410/7010 file recording mode specifies how 
word marks and word separator characters are re- 
corded during read and write operations. 

Load Mode: The handling of word marks and word 
separator characters in the Load mode depends on the 
type of operation, as follows: 

During write operations, each word mark is trans- 
lated into a word separator character that immediately 
precedes the character with which the word mark was 
associated in core storage. Each word separator char- 
acter in storage is translated into two word separator 
characters on tape. 

During read operations, word marks already in the 
input area are cleared. Each word separator character 
on tape is translated into a word mark associated with 
the character it immediately preceded on tape, and 
pairs of word separator characters on tape are trans- 
lated into single word separator characters without 
word marks in core storage. 

Move Mode: When information is written in the 
Move mode, word marks have no effect on the data 
that is recorded on output media. Word marks in 
storage are undisturbed when information is read in 
this mode. Each word separator character is read into 
core storage and written out of core storage as a word 
separator character. 

Standard Tape Labels 

If standard labels are specified in the File Description 
entry, certain items within the label are automatically 
processed by the cobol compiler. The remaining items 
may be used by the programmer by using the begin- 
ning-label and/or the ending-label options of the 
label records clause in the File Description entry. 

For details concerning the form of the standard 
tape labels, see the publication, IBM 1410/7010 Oper- 
ating System; Basic Input/Output Control System, 
Form C28-0322. 
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Record Formats for Tape Files 

The data record formats that can be handled by the 
1410/7010 cobol compiler for files assigned to tape 
are: 

la. Fixed-length, unblocked records with or without 
terminal record marks (Figure 3). 

lb. Variable-length, unblocked records with ter- 
minal record marks and without length checking ( Fig- 
ure 4). 

2. Fixed-length, blocked records with terminal rec- 
ord marks (Figure 5). 

3. Variable-length, unblocked records containing a 
Record Character-Count field and with or without 
terminal record marks (Figure 6). 

The Record Character-Count field is a four-position 
field at the beginning of each record. It contains a count 
of the total number of characters in that record, includ- 
ing itself and the terminal record mark, if present. 

4. Variable-length, blocked records with a Block 
Character-Count field and containing Record Char- 
acter-Count fields. Terminal record marks are required 
(Figure 7). 

A four-character Block Character-Count (bcc) field 
at the beginning of each block contains a count of the 



total number of characters in the block (including the 
four-character Block Character-Count field itself). 

This count is used to check and correct wrong-length- 
record conditions. The bcc field must have ab zone bits 
(12-punch) over the units position. 

This field is not a part of a record and therefore is 
not defined in a Record Description entry. 

A Record Character-Count (rcc) field of one to four 
characters in each record contains a count of the total 
number of characters in that record, including itself 
and the terminal record mark. This field must be in 
the same relative position in each record (the number 
of characters in each "CI" in Figure 7 is the same), 
and must be the same length in each record of a given 
file. The "C2" fields in Figure 7 are all equal in length. 

Record Formats for Unit-Record Files 

CARD READ PUNCH RECORDS 

Records of files assigned to the card reader or card 
punch must be 80 characters in length, unblocked, and 
may or may not have record marks in the 80th char- 
acter position. In addition, these files must be in Move 
mode and even parity. 



Record 1 



Record 2 



Record 3 



Figure 3. Fixed-Length, Unblocked Records 
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Figure 4. Variable-Length, Unblocked Records Without Length Checking 



Figure 5. Fixed-Length, Blocked Records 
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Figure 6. Variable-Length, Unblocked Records 
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Figure 7. Variable-Length, Blocked Records 
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PRINTER RECORDS 

Records of files assigned to the printer must be 132 
characters, fixed-length, and unblocked. Files assigned 
to the printer must be in Move mode and even parity. 

File Section 

File Description Entry 

A File Description entry must describe each file to be 
processed by the object program. It includes specifi- 
cations for the mode in which the file is recorded, 
record and block size, label record information, and 
the names of the data records that make up the file. 
The form of the File Description entry is: 



MODE j ^SFJ t PARITY 



FD file-name RECORDING MODE IS 

JHh 0DE m 

| BLOCK CONTAINS integer-1 j RE CORDS 
RECOR D CONTAINS Xinteger-2 Tol 



CHARACTERS 



!] 



] 



integer-3 CHARACTERS 
^DEPENDING ON data-name-l~\ 



LABEL RECORD[S] 



(ARE) 
JIS \ 



S TANDARD [ wiTH integer-4 CHARACTERS] 

■] 



OMITTED 



i beginning-labe l 
[ ending-label] 



N ON-STANDARD [ WITH integer-4 CHARACTERS'] 

[beginning-label] 

] . 



[" ending-label 



[ 



VALUE OF FILE-IDENTIFICATION IS Hteral-1 



[ RETENTION-PERIOD IS integer-5~\ 

( A R F ) i~ ~i 

DATA RECORD[S] < > data-name-2\ data-name-3 .... 



Level Indicator: The level indicator fd identifies the 
beginning of the File Description entry and precedes 
the file-name assigned by the programmer (Figure 8). 



IB 



FD i MiAsmEP_-pii .us 



_1 L_l I I I __L _ 



J LJ I I I I I I I I 



I I I I I 

Figure 8. fd File-Name 

RECORDING MODE Option: This option specifies 
the mode in which the file is recorded. (See the "Rec- 
ording Modes" section of this publication.) If the 
recording mode option is omitted in the source pro- 
gram, the compiler assumes Move mode and even 
parity. 

BLOCK CONTAINS Option: In addition to the de- 
tails specified in the General Information Manual, the 
following information pertains to the block contains 
option. 

If the file-name in the fd entry contains variable- 
length records, this entry must take the form: 

BLOCK CONTAINS integer-1 CHARACTERS 

where integer-1 must be equal to or greater than the 
number of characters contained in the longest block 
of the file. This number includes the four-character 
Block Character-Count (bcc) field (see variable-length, 
blocked records in the section, "Record Formats for 
Tape Files"). 

RECORD CONTAINS Clause: This required clause 
is used to specify the size of a record in terms of the 
number of characters it contains and to indicate the 
record form. Integer-2 is used to specify the minimum 
number of characters in the smallest record of the file, 
whereas integer-3 indicates the maximum number of 
characters in the largest record. If all records in the 
file are exactly the same size, only integer-3 should be 
specified. 

The depending on data-name- 1 option is required 
only when specifying variable-length records with 
Record Character-Count (rcc) fields. Data-name- 1 is 
the name of the rcc field. The contents of this field 
indicate the number of characters in the record. 
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The following examples illustrate the use of the 
block contains option and the record contains clause 
to specify each of the five record forms: 

For fixed-length, unblocked records: 

RECORD CONTAINS 80 CHARACTERS 

For variable-length, unblocked records without 
length checking: 

RECORD CONTAINS 100 TO 200 CHARACTERS 

For fixed-length, blocked records: 

BLOCK CONTAINS 5 RECORDS 
RECORD CONTAINS 80 CHARACTERS 

For variable-length, unblocked records: 

RECORD CONTAINS 100 TO 200 CHARACTERS DE- 
PENDING ON RCC 

For variable-length, blocked records: 

BLOCK CONTAINS 504 CHARACTERS 
RECORD CONTAINS 30 TO 50 CHARACTERS DE- 
PENDING ON RCC 

LABEL RECORD Clause: This clause is required 
in every File Description entry. For unit-record files, 
this clause must specify that label records are omitted. 
If standard labels are specified for tape files, the file 
identification, the reel sequence, and the retention 
period are automatically checked. 

If either standard or non-standard is specified and 
the with integer-4 characters option is desired, in- 
teger-4 must be 80 or 120. This is required in order to 
conform widi the 1410 80-character and ibm Standard 
120-Character tape labels. (For details concerning 
these labels see the publication, Basic Input/Output 
Control System.) If this option is not used, the label 
record size is assumed to be 120 characters. 

Note: Actual size of nonstandard labels need not 
be exactly 80 or 120 characters, but may not exceed 
120. 

When a file contains standard tape labels, and no 
processing beyond that supplied by the compiler is 
required, standard must be specified. 

If additional processing of the standard tape label 
is desired, the programmer must specify standard with 
beginning-label and/or ending-label in conjunction 
with the use verb. If either or both of these options 
are used, a Record Description entry that defines the 
entire label must be provided. 
Example: 



LABEL RECORDS ARE STANDARD BEGINNING-LABEL 
ENDING-LABEL 



01 BEGINNING-LABEL. 

02. . . 
02... 

01 ENDING-LABEL. 

02. . . 
02. . . 

When a file contains nonstandard labels and label 
processing is not desired, non-standard must be spe- 
cified. Use of non-standard without additional options 
will cause the nonstandard labels to be bypassed in 
the object program. 

Special processing of nonstandard labels can be 
accomplished by defining the label format with the 
beginning-label and ending-label options in conjunc- 
tion with the use verb. No automatic testing takes 
place if non-standard is specified. 

VALUE Option: The function of the value option 
in the File Description entry is to specify the contents 
of data items in the label record of the file. The follow- 
ing two forms of the value option are permitted for 
standard tape labels; 

Form 1. 

VALUE OF FILE-IDENTIFICATION IS literal-1 

This form applies to both input and output files and 
is required if standard tape labels are used. Literal-1 
must be a ten-character non-numeric literal. 

Form 2. 

VALUE OF FILE-IDENTIFICATION IS literal-1 
RETENTION-PERIOD IS integer-5 

This form applies to output files only, and must be 
supplied for each output file if standard tape labels 
are used. Integer-5 must be an integer (up to four 
digits) indicating the number of days beyond the cre- 
ation date the file is to be preserved. For files that 
are to be preserved indefinitely, the programmer in- 
serts the digits "99" in the two high-order positions of 
the creation date (see "Standard Tape Labels"). 

DATA RECORD Clause: This clause is required 
in every File Description entry. Data-name-2, data- 
name-3, . . . etc., must each be the subject of a Record 
Description entry that has a level number of 01. The 
data-name order is not significant to the processor. 

The appearance of more than one data-name in this 
clause means that the file contains a corresponding 
number of different types of data records. These 
records may be of different sizes and formats. 

Figure 9 illustrates a sample File Description entry. 

Record Description Entry 

A Record Description entry specifies to the compiler 
the characteristics of each item of a data record. Every 
item given a separate name must be described in a 
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Figure 9. File Description Entry 



separate entry in the same order in which it appears 
in the record. Each Record Description entry consists 
of a level-number, a data-name, and a series of inde- 
pendent clauses. The form of a Record Description is: 

level-number ^l^ e ^ REDEFINES . . .] 



C 



SIZE 



[ OCCURS 



VALUE 



•][ 



.] [class...] [usage...] 
] [point...] [signed,...] 
picture_. . .] [blan k when zerp ] 



Level-Number: The level-number shows the relation- 
ship between items in a record. Each level-number 
must be associated with a data-name or with the key 
word filler, as shown in the following general format: 



ij 7 ( data-name ) 

level-number < ^j t FR I 



A detailed description of level-numbers can be found 
in the General Information Manual. 

REDEFINES Clause: The redefines clause is fully 
implemented by the 1410/7010 cobol compiler. The 
general form of this clause is: 

level-number data-name-1 [ REDEFINES data-name-2~\ 

See the General Information Manual for details con- 
cerning the use of the redefines clause. Additional 
information, pertinent to the use of redefines in pro- 
grams that are to be compiled on systems other than 
the 1410/7010 appears in the "Compatibility Consid- 
erations" section of this manual. 



is omitted for a data-item and the usage clause speci- 
fies computational, numeric class is implied. In the 
absence of any class specification or implication, al- 
phanumeric class is assumed. Numeric class items must 
not exceed 18 digits. For report items, the number 
of numeric characters represented must not exceed 18. 
The general form of the class clause is : 



CLASS IS 



/ ALPHABETIC \—\ 
) NUMERIC I 

\ ALPHANUMERIC ( 

Ian ;J 



USAGE Clause: The usage clause does not in any 
way affect the internal representation of data in the 
ibm 1410/7010 Data Processing Systems. All data is 
represented internally in bcd (binary-coded decimal) 
form and no distinction is made between computa- 
tional and display usage. If the usage clause for a 
data-item specifies computational and a class state- 
ment is omitted, the class is assumed to be numeric. 
The general form of the usage clause is: 



[ 



USAGE IS 



(COMPUTATIONAL/ 



) DISPLAY 



'J 



OCCURS Clause: The general form of the occurs 
clause is : 

[ OCCURS integer-2 TIME[S]] 

See the General Information Manual for details con- 
cerning the use of this clause. 

POINT Clause: The general form of the point 
clause is: 



is 



SIZE Clause: The general form of the size clause [ POINT LOC ATION is j^ T | integer-3 PLACE[S]] 



I^SIZE IS integer-1 [ j d^ITEsT™^ f] J 

See the General Information Manual for details 
concerning the use of this clause. 

CLASS Clause: In addition to the details in the Gen- 
eral Information Manual concerning the use of this 
clause, the reader should note that if a class statement 



See the General Information Manual for details con- 
cerning the use of this clause. 

SIGNED Clause: A numeric data item will have an 
operational sign if this clause is used. An operational 
sign should be specified for the result field of any 
arithmetic statement where the sign is a consideration. 
Additional details concerning the use of the signed 
clause are found in the General Information Manual. 
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The general form of this clause is: 

[ signed ] 

VALUE Clause: The general form of the value 
clause is: 

[" VALUE IS literal] 

In addition to the details specified in the General 
Information Manual, the following information per- 
tains to the use of this clause: 

L If the value clause specifies a numeric literal 
with a preceding sign, the operational sign is created 
only if the programmer specifies the picture symbol 
"S" or the signed clause. 

2. The value clause can only be used to refer to 
elementary items. 

3. The value clause has no meaning for report items, 
and cannot be used to specify their initial values. 

4. Neither a record mark (=f=) nor a group mark (^e) 
can be used within the value clause ( see picture sym- 
bols "J" and "K"). 

PICTURE Clause: The general form of the picture 
clause is: 

rmr^Tmtr tc an V allowable combination of~\ 
L characters ana symbols J 

The picture clause can only be used to describe ele- 
mentary items. It is recommended that, wherever 
possible, the programmer use this clause instead of 
the size, point, class, and blank clauses of a Record 
Description entry. The picture clause specifies the 
characteristics of an elementary item in a more com- 
pact form, and can therefore be processed more effi- 
ciently. 

In addition to the rules given in the General Infor- 
mation Manual for forming a picture of a data item, 
the following information pertains to the use of the 
picture clause: 

1. The only way to define a record mark or group 
mark is by using a picture symbol. The special pic- 
ture symbol "J" is used to indicate a one-character 
field containing a record mark (4=), and the special 
picture symbol "K" is used to indicate a one-character 
field containing a group mark ( 4=). When used, the 
picture symbol "J" or "K" must be the only character 
in the picture. 



2. The picture symbol "S" is used to indicate an 
operational sign (see the signed clause). 

3. For report items, the maximum number of char- 
acters that can be represented by a picture is 99. 

4. The picture symbol "V" to the right or left of 
picture symbol "P" is redundant and constitutes an 
error. 

5. picture symbol "Z" may appear to the right of a 
decimal point in a picture only if all numeric char- 
acter positions are represented by "Z"s. This same rule 
applies to the replacement character "*". 

BLANK WHEN ZERO Clause: The general form of 
the blank when zero clause is: 

[ blank when zero ] 

See the General Information Manual for details con- 
cerning the use of this clause. 

Figure 10 illustrates a sample Record Description 
entry. 



Working-Storage and Constant Sections 

The Record Description entries described for the File 
Section apply also to the Working-Storage and Con- 
stant Sections. These sections begin with the header 
line "working-storage section." or "constant sec- 
tion." and are followed immediately by the Record 
Description entries. 

In addition to the details specified in the General In- 
formation Manual, the following considerations pertain 
to the Working-Storage and Constant Sections. 

If the value clause is not used to define the initial 
values of Working-Storage items, these values will be 
unpredictable. 

Constant Section elementary items must include a 
value clause or one of the picture symbols "J" and 
"K", unless associated with a redefines clause. 



Added Features of the Data Division 

An optional feature, not specified in the General Infor- 
mation Manual, but contained in the 1410/7010 cobol 
language is: 

The depending on option of the record contains 
clause. 
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Figure 10. Record Description Entry 
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Procedure Division 



Once the computer and the data have been described, 
the programmer gives the cobol compiler the instruc- 
tions that specify the data processing steps the object 
program is to perform. Information that directs the 
compiler is also supplied by the programmer in the Pro- 
cedure Division. 

The cobol verbs are the main elements in the Proce- 
dure Division and they are described in detail in the 
General Information Manual. However, for the conven- 
ience of the user, the general format of each cobol verb 
is shown in this publication. 

Information not included in the General Information 
Manual, but applicable to verbs which have additional 
meaning when used in a 1410/7010 cobol source pro- 
gram, is supplied in later sections of this manual. 

Compiler Directing Declaratives 

Declaratives are compiler-directing statements that op- 
erate under the control of the "main body" of the Pro- 
cedure Division or the Input/Output Control System. 
Declaratives consist of the use verb and any associated 
procedures. If present, Declaratives 

1. must be grouped at the beginning of the Proce- 
dure Division, and 

2. must be preceded by the key word declaratives 
and followed by the key words end declaratives. 

USE Verb 

The use verb is used to specify procedures for handling 
input/output errors and label processing (see "label 
record" clause) in addition to the procedures normally 
provided by the cobol compiler. Each occurrence of 
the use verb constitutes a complete section of the Pro- 
cedure Division, and must therefore be preceded by a 
section-name. The remainder of the section consists of 
one or more paragraphs specifying the procedures to 
be used (Figure 11). A "use" section must follow the 
rules for a section which is "performed" (see the per- 
form verb in the General Information Manual for de- 
tails). For example, if the logic of a procedure requires 
a conditional exit prior to the final statement, the exit 
verb must be used. The section-name of a use section 
must not be referenced by an alter, go to, or perform 
statement since the use entry is appended to this sec- 
tion header. The paragraph-name of the last paragraph 
in a use section must not be referenced by an alter or 
perform statement since the use exit is appended to 
this paragraph. 
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Figure 11. Declaratives 



The following options of the use verb are available. 
Option 1 

section-name SECTION. USE AFTER STANDARD 
ERROR PROCEDURE ON file-name-1 \jile-name-2 . . .]. 
{any COBOL statements including DISPLAY using the 
console printer but excluding all other input/output 
statements ) 

This option allows the programmer to specify addi- 
tional procedures if standard error-correction proce- 
dures do not suffice. Standard error procedures attempt 
to correct the error in accordance with 1410/7010 iocs 
standards. If the error persists, the error condition is ig- 
nored and processing continues. Thus, the programmer 
has the following options: ignore the error condition 
and process the record, or by means of the use verb 
perform special processing for error records (e.g., set a 
switch, display a console message, etc.). 

Option 2 

{ BEFORE / 



section-name SECTION. USE 



} AFTER \ 



STANDARD 



[~{ BEGINNING [1 fjREELM 

Uending \j Ufile (J 

LABEL PROCEDURE ON file-name, (any 
COBOL statements including DISPLAY 
using the console printer but excluding all 
other input/output statements) 
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This option is used to: 

1. Perform processing of standard tape labels beyolnd 
that supplied by the cobol compiler. 

2. Perform any desired processing of nonstandard 
labels. 

If both beginning and ending are omitted, the desig- 
nated procedures will be executed for both beginning 
(header) and ending (trailer) labels. 

If both reel and file are omitted, the designated 
procedures will be executed upon detection of both 
end- of -reel and end-of-file conditions. 



input/Output Verbs 

OPEN and CLOSE 

The cobol compiler provides the facility for opening 
an input or output file, processing it, closing it, and 
subsequently reopening it as an input or output file. 

The open verb is used to initiate the processing of 
one or more input and/or output files. The format of 
the open verb is : 

OPEN INPUT file-name-1 [file-name-2 . . .1 

OUTPUT file-name-3 file-name-4 . . . \ 

The close verb is used to terminate processing of 
one or more input and/or output reels' or files. Provision 
for optionally locking or not rewinding is also included. 
The format of the close verb is : 

CLOSE file-name-1 [_REEl] j^WITH |Mt IeWINd [] 

file-name-2 . . . 

See the General Information Manual for details con- 
cerning the open and close verbs. 

READ 

The function of this verb is to make the next record 
from an input file available for processing. The general 
form of the read verb is : 

READ file-name RECORD [ iNTO area-namel 

AT END any imperative statement 

In addition to the details specified in the General In- 
formation Manual, the following considerations pertain 
to the use of the read verb : 

1. An open statement for the file must be executed 
prior to the execution of the first read for that file. 

2. When a read is executed, the next record of the 
file becomes accessible in the input area defined by the 



associated Record Description entry in the File Section 
of the Data Division. The record remains available in 
the input area until the next read (for that file) is exe- 
cuted. The named file must be defined by an fd entry 
in the Data Division of the program. 

3. Every read statement must include an at end 
clause containing any imperative statements; i.e., any 
single verb with its operand(s), or a sequence of verbs 
with their operands terminated by a period and con- 
taining no explicit or implied conditional expressions. 
Once an at end statement has been executed, any at- 
tempt to read from the file will constitute an error un- 
less a subsequent close and open have been executed. 

Note: When reading a file containing fixed-length, 
blocked records, the end-of-file condition does not nec- 
essarily occur following the last logical record. There- 
fore, the programmer must test for a record consisting 
of all padding characters, to ensure detection of the 
end of the logical file. 

4. The into area-name option converts the read into 
a read and move. The area-name specified must be the 
name of either a Working-Storage record area or an 
output record area. When this option is used, the cur- 
rent record becomes available in the input area, as well 
as in the area specified by area-name. If the format of 
the into area differs from that of the input record, the 
data will be moved in accordance with the rules for the 
move verb without the corresponding option. It will 
be assumed that the area specified by area-name will 
be completely filled by information from the input rec- 
ord. If this is not the case, read and move should be 
used rather than read into. 

5. Each time an end-of-reel condition occurs in a 
reel other than the last, the read verb causes the fol- 
lowing operations to take place: 

a. If labels are present (as specified in the fd for 
that file) the standard end-of-reel label subrou- 
tine of the Input/Output Control System is 
executed. 

b. A tape alternation occurs, if appropriate. 

c. If labels are present, the standard beginning-of- 
reel label subroutine is executed. 

d. If rerun has been specified for this file, a 
checkpoint record is written. 

e. The next record in the file is made available for 
processing. 

WRITE 

The purpose of the write verb is to release a record for 
insertion in an output file. The format of a write state- 
ment is : 

WRITE record-name FROM area-name 
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In addition to the details specified in the General In- 
formation Manual, the following considerations pertain 
to the use of the write verb: 

1. If the user desires to write records which have 
been described by the renaming option (see the "file 
control" paragraph), the record-name must always be 
qualified by the file-name. 

2. If the from option is used, information will be 
transmitted from area-name with or without word 
marks, depending upon the recording mode of the file 
associated with record-name. If the file is defined in the 
Load mode, word marks will be transmitted. If the file 
is defined in the Move mode, word marks will not be 
transmitted. Area-name must be the name of an input 
record or a Working-Storage or Constant Section rec- 
ord area. 

DISPLAY 

The format of the display verb is: 



t-wtotit a i7 \ data-name-1 
DISFLAY \lUeral-l 



( data-name-2 \ | 

\_\literal-2 \ \ 



UPON mnemonic-name 



In addition to the details specified in the General In- 
formation Manual, the following information pertains 
to the use of the display verb: 

1. display literals must be non-numeric. 

2. The Operating System's Standard Punch Unit and 
Standard Print Unit may be equated with mnemonic- 
names in the special-names paragraph of the Environ- 
ment Division. If the upon option is omitted, the con- 
sole printer will be used as the standard Display Device. 

3. Depending on the 1403 printing chain or the con- 
sole printer type head, certain characters will not be 
displayed. See the publication, IBM 1410 Principles of 
Operation, Form A22-0526 or IBM 7010 Principles 
of Operation, Form A22-6726, for further details. 

4. If a printer is used, it will be assumed that the 
carriage tape has a channel-1 punch. 

5. Information of any length can be displayed on 
any display device. 

6. A standard set of error procedures is produced by 
the compiler for use in the execution of the display 
verb. 

Figure 12 shows a display statement that will cause 
the contents of the field grand-total to be typed 
on the console printer when the object program is 
executed. 

Figure 13 shows a display statement that will cause 
the contents of the field grand-total to be displayed 
in 80-character records on the Standard Punch Unit 
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Figure 12. Standard Display Device 
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Figure 13. Punch Display 

when the object program is executed, assuming that 
the mnemonic-name punch has been equated with the 
system-output-punch. 

ACCEPT 

The function of the accept verb is to obtain low- volume 
data from the Operating System's Standard Input Unit. 
The Standard Input Unit is the only device from which 
information can be accepted. The general form of the 
accept verb is: 

ACCEPT data-name 

Figure 14 shows an accept statement that will cause 
data to be read from the Standard Input Unit and 
moved into the area defined by the data-name cancel- 
lations. If this area contains more than 80 characters, 
sufficient card images will be read to fill it. 
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Figure 14. Accept 

A standard set of error procedures is produced by 
the compiler for use in the execution of the accept verb. 



Data Manipulation Verbs 

MOVE 

The move verb can be used in either of two formats: 
Option 1 

MOVE j i; tpra i [ TO data-name-2 data-name-3 

Option 2 
MOVE CORRESPONDING data-name-1 TO 

data-name-2 data-name-3 . . . J 
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In addition to the details specified in the General In- 
formation Manual, the following considerations pertain 
to the use of Options 1 and 2 of the move verb: 

1. The following moves are aligned by decimal point: 

a. Elementary numeric to elementary numeric 

b. Elementary numeric to elementary alpha- 
numeric report 

c. Elementary non-numeric to elementary numeric 
(The elementary non-numeric item is assumed 
to be an integer.) 

2. All other moves are left-justified. 

3. When figurative constants are used as operands 
of the move verb, the size of the receiving area deter* 
mines the number of characters that are moved. For 
example, if the size of area-a in Figure 15 is five posi- 
tions, its value after execution is five nines (99999). 
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Figure 15. Move Verb 

4. When using a move corresponding, only the initial 
description of data-name-1 and data-name-2, etc., will 
be considered. That is, where a redefines clause has 
been used within data-name-1 or data-name-2, the de- 
scription of data contained within the redefines clause 
is ignored. (See general suggestions given in the sec- 
tion, "Programming Techniques.") 

EXAMINE 

The general form of the examine verb is : 
EXAMINE data-name 



( ALL 
TALLYING } LEADING 



)• literal-1 



I UNTIL FIRST \ 

[ REPLACI NG BY literal-2~\ 

( ALL ) 

< LEADING [literal^ 



> 



REPLACING < LEADING \literal-3 BY Hteral-4 
I UNTIL FIRST \ 



See the General Information Manual for details con-: 
cerning the examine verb. 

Arithmetic Verbs 

The following rules apply to the arithmetic verbs: 

1. All data-names used in arithmetic statements: 
must represent elementary numeric data items that are 
defined in the Data Division of the program. A data-: 



name that is defined within the Constant Section can- 
not appear as the result field of an arithmetic statement. 

2. All literals used in arithmetic statements must be 
numeric. 

3. The maximum size of any operand (data-name or 
literal) is 18 digits. If the format for any operand speci- 
fies a size greater than 18 digits, the compiler will 
produce an error message when it encounters the dis- 
crepancy. 

4. Intermediate result fields generated for the evalu- 
ation of arithmetic expressions (formulas) will always 
have a picture of S9(10)V9(10). If greater precision is 
desired, the simple arithmetic verbs (i.e., add, sub- 
tract, multiply, and divide) must be used. 

5. Decimal-point alignment is supplied automatically 
throughout computations. 

6. The format of any data item involved in computa- 
tions (e.g., addends, subtrahends, multipliers, etc.) 
cannot contain editing symbols. If this rule is violated, 
the compiler will indicate the error by an appropriate 
message. Operational signs and implied decimal points 
are not considered editing symbols. The data-name in 
the giving option and the result field in the compute 
verb format represent data items which must not enter 
into computations if they contain editing symbols. 

7. The only figurative constant permitted in arith- 
metic statements is zero ( or zeros and zeroes). 

8. For the simple arithmetic verbs the data charac- 
teristics of the receiving field control the precision of 
the operation; therefore, no high-order digit will be lost 
without creating the size error condition. All specified 
decimal positions will also be produced. 

9. For use with the size error option "any impera- 
tive statement" is any single verb with its operand(s) 
or a sequence of verbs with their operands terminated 
by a period and containing no explicit or implied con- 
ditional expressions. 

10. If exponentiation is used in a compute expres- 
sion, the exponent must be an integer. Negative expo- 
nents are permitted. 

ADD 

The general form of the add verb is: 



j data-name-1 } | ( data-name-2 ) | 

^^- } literal-1 \ [_}literal-2 J "J 

] GIVING [ data-name-n ROUNDED 

ON SIZE ERROR any imperative statement 

An add statement must name at least two addends. 
For additional details concerning the add verb, see the 
General Information Manual. 
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CORRESPONDING Option: The corresponding op- 
tion of the add verb allows the programmer to specify 
the addition of corresponding items in one operation 
in a manner similar to move corresponding. 

The general form of add corresponding is : 
ADD CORRESPONDING data-name-1 TO data-name-2 

[ rounded ] 

ON SIZE ERROR any imperative statement 

Numeric elementary items within data-name-1 are 
added to numeric elementary items with matching 
names in data-name-2. Data-name-1 and data-name-2 
must be nonelementary items. The rules stated for the 
simple add verb apply to each pair of items in the add 
corresponding option. 

Only the initial description of data-name-1 and data- 
name-2 is considered in the implementation of the 
add corresponding option. That is, where a redefines 
clause has been used for data-name-1 or data-name-2, 
the description of the data contained within the re- 
defines clause is ignored by add corresponding. ( See 
general suggestions given in the section, "Programming 
Techniques.") 

The rounded option and the size error option of the 
add verb may also be used with add corresponding. 
For a detailed description of these two options, see the 
General Information Manual. 

Note: When size error is used in conjunction with 
corresponding, the size error test is made only after 
the completion of all the add operations. If any of the 
additions produced a size error, the resultant field for 
that add remains unchanged, and the "any imperative 
statement" is executed. 

To illustrate the use of the add corresponding option, 
assume that the programmer wishes to add items from 
a work area named receipts to corresponding items in 
an area designated stock-on-hand. He would write 
this statement: 

ADD CORRESPONDING RECEIPTS TO STOCK-ON- 
HAND 

Figure 16 shows what will result from this statement. 
Note that noncorresponding items in the stock-on- 
hand area are not affected. 

SUBTRACT 

The general form of the subtract verb is: 

eTrnTDA ™ S data-name-1 ) \ \ data-name-2 / . . .1 
S UBTRACT j UteraU1 } \_\hteral-2 \ J 

FROM \tt a J.T e - n \ [GIVING data-name-m] 

[ rounded ! 

ON SIZE ERROR any imperative statement 
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Figure 16. Add Corresponding 



A subtract statement must name at least one subtra- 
hend and one minuend. For further details concerning 
the subtract verb, see the General Information Manual. 

CORRESPONDING Option: The corresponding op- 
tion of the subtract verb functions in the same way as 
the corresponding option of the add verb. 

The general form of subtract corresponding is: 

SUBTRACT CORRESPONDING data-name-1 

FROM data-name-2 [ rOUNDEd ! 
ON SIZE ERROR any imperative statement 

MULTIPLY 

The general form of the multiply verb is: 



( data-name-1 , 
MULTIPLY ] ltteraU 



j data-name-2 \ 
£1 \literal-2 \ 



GIVING data-name- 



.,] [ 



ROUNDED 



ON SIZE ERROR any imperative statement 

Additional details concerning the multiply verb are 
contained in the General Information Manual. 



DIVIDE 

The general form of the divide verb is: 

rATWTTAir \ data-name-1 ) TXTPrr , S data-name-2 [ 
DIVIDE \literal-l \ ™12 \lUeral-2 \ 



[ 



[ GIVING data-name-3~\ [ ROUNDED 1 
ON SIZE ERROR any imperative statement 



Additional details concerning the divide verb are 
contained in the General Information Manual. 
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COMPUTE 

The general form of the compute verb is : 

COMPUTE data-name-1 [ ROUNDED 1 
=: arithmetic expression 

ON SIZE ERROR any imperative statement 

For details concerning the compute verb, see the 
General Information Manual. 



Procedure Branching Verbs 

GO TO 

There are two formats in which the go to verb can be 
used: 

Option 1 

GO TO procedure-name 

Option 2 
GO TO procedure-name-1 procedure-name-2 

procedure-name-3 ... DEPENDING ON data-name 

For additional information concerning the go to 
verb, see the General Information Manual. 

ALTER 

The general form of the alter verb is : 
ALTER procedure-name-1 TO PROCEED TO 

procedure-name-2 [procedure-name-3 TO 

PROCEED TO procedure-name-4 . . .1 

A go to sentence that is to be altered must be: 

1. An unconditional go to sentence 

2. Written as a separate paragraph consisting solely 
of the go to sentence, preceded by a procedure- 
name 

For additional information concerning the alter 
verb, see the General Information Manual. 

PERFORM 

There are five formats in which the perform verb can 
be used. These are: 
Option 1 

PERFORM procedure-name-1 THRU procedure-name-2 

Option 2 

PERFORM procedure-name-1 THRU procedure-name-2 



Option 3 
PERFORM procedure-name-1 THRU procedure-name-2 1 



UNTIL condition-1 



Option 4 
PERFORM procedure-name-1 THRU procedure-name-2 \ 



VARYING data-name-1 FROM 



\ numeric-literal-1 ) ( numeric-liter al-2 \ 

\ data-name-2 \ -£l \ data-name-3 \ 



\ numeric-liter al-2 \ 
\ data-name-3 I 

UNTIL condition- J 



Option 5 

PERFORM procedure-name-1 THRU procedure-name-2 

VARYING suhscript-name-1 

FROM \^er-l ) Unteger-2 ) 
/ data-name-1 ) ] data-name-2 \ 

UNTIL condition-1 AFTER subscript-name-2 

FROM \iffSer-3 ) Unteger-4 ) 

. / data-name-3 ) / data-name-4 ) 

condition-2 AFTER subscript-name-3 FROM 

Unteger-5 ) Unteger-6 i conditions'] 

( data-name-5 ) / data-name-6 ) J 

See the General Information Manual for further in- 
formation concerning the perform verb. 



Compiler Directing Verbs 

ENTER 

The enter verb, used in conjunction with the call 
verb, allows the programmer to incorporate into his 
object program Fortran and/or Autocoder compiled 
subprograms. The incorporation of subprograms is per- 
formed at the time the object program is processed by 
the Linkage Loader. (See the publication, System 
Monitor.) Each enter statement must constitute a sep- 
arate paragraph in the source program. 
The form of the enter verb is: 



ENTER 



< COMMUNICATION-MODE 



) COBOL 



I- 



The entry enter communication-mode precedes the 
calling of the subprogram(s). The call verb specifies 
the subprogram(s) to be included in the object pro- 
gram. The entry enter cobol must terminate the list of 
subprograms, communication-mode may be entered 
any number of times in a program. 

CALL 

The general form of the call verb is: 
CALL subprogram-1 [uSING j^T^ ( 



n data-name-2 \ "IT 
literal-2 (' "J J' |_ 



CALL 
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Subprogram- 1 is the name contained in the title 
card of the subprogram. The call verb causes the 
cobol compiler to generate an imbedded call for the 
named subprogram. When the imbedded call is proc- 
essed by the Linkage Loader, it is converted into a 
branch to the first character of the called subprogram. 

The using option specifies the required parameters 
(data-names and/or literals) for the subprogram. These 
parameters reference data within the cobol program 
and are the only means of communication between the 
main program and the subprogram. At object program 
run time, these parameters are represented by a se- 
quence of five-character addresses of the appropriate 
data, with a word mark over the high-order position of 
each address. This list is followed by a terminal "No 
Operation" instruction. (The number of parameters is 
used by the called subprogram to determine the point 
at which control is to be returned to the main program.) 
Although any number of parameters may be specified, 
a maximum of two subscripted data-names may appear 
in a given using option. 

The call verb may be used only after the communi- 
cation-mode has been entered. No other verb may ap- 
pear within the communication-mode. 

EXIT 

The exit verb is used when it is necessary to provide 
an end point for a procedure that is to be executed by 
means of a perform statement, or for procedures speci- 
fied in the "use" section. While exit is classified as a 
compiler-directing verb because it supplies the com- 
piler with necessary information and does not produce 
any coding in the object program, it can also be thought 
of as a "dummy" program verb. 

exit must appear in the source program as a one- 
word paragraph preceded by a paragraph-name. The 
form of the exit verb is: 

EXIT. 



Further discussion of the exit verb is contained in 
the General Information Manual. 

NOTE 

The form of the note verb is: 

NOTE any comment. 

See the General Information Manual for any addi- 
tional information concerning this verb. 

Ending Verb 

STOP 

The general form of the stop verb is: 
( literal ) 



In addition to the details specified in the General 
Information Manual, the following information per- 
tains to the use of the stop verb: 

1. The statement: 
stop literal 

will cause the program to print the literal on the con- 
sole printer and enter the Wait-Loop routine of the 
Resident Monitor. (For details, see the publication, 
System Monitor.) 

2. The statement: 
stop run 

indicates the end of the program and generates the 
message "stop run" on the console printer, followed by 
a return to the System Monitor. 



Conditional Expressions 

In addition to the details contained in the General In- 
formation Manual, the following rule applies to condi- 
tional expressions : 

Within a relational expression the subject, relational 
operator, and object must all be at the same logical 
parenthetical level. Therefore, a left parenthesis pre- 
ceding an object indicates that arithmetic follows. 

Example: 



VALID 

IF A= (B + C) 
IF A= (- B) 



INVALID 

IF A= (B OR C) 

IF A= ( (B + C) OR D) 



As described in the General Information Manual, 
implied subjects and implied relational operators are 
permissible in conditional expressions. No other abbre- 
viated usage is permitted. 

Example: 



VALID 

IF A = B OR C 



INVALID 

IF A = B, C OR D 



In a conditional expression the logical operator not 
is only permitted at one given parenthetical level. 

Example: 



VALID 

NOT (A OR B; 



INVALID 

NOT (NOT A OR B) 



STOP 



/RUN \ 



Added Features of the Procedure Division 

The following features, not contained in the General 
Information Manual, are included in the 1410/7010 
cobol language: 

1. The use Declarative 

2. The corresponding option of the add verb 

3. The corresponding option of the subtract verb 
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General Information 



Programming Techniques 

As mentioned in the General Information Manual, 
cobol provides a convenient method of writing busi- 
ness-oriented programs. However, certain techniques 
can be used which may produce more efficient ma- 
chine-language coding or increase compiling speed. 

The following suggestions are included to aid the 
user in obtaining the most efficient machine-language 
coding from the 1410/7010 cobol compiler: 

1. For files which contain multiple records it may be 
more economical to define only one form and then 
transfer the record to an appropriate work area. 

2. In an add or subtract operation where there are 
several operands (data-name or literal), the operands 
should be the same size. If this is not possible, the 
largest operand should appear first. 

3. It is important to use signed rather than unsigned 
numeric fields wherever possible. 

4. For elementary numeric items, the scaling varia- 
tions should be minimized (use of picture symbol "P"). 

5. Subscripting and redefines clause usage may be 
less efficient than other approaches. 

6. Whenever possible, simple statements referencing 
elementary items should be used, rather than complex 
statements or statements which reference group items. 

The following suggestions are included to aid the 
user in increasing compilation speed: 

1. Unnecessary paragraph-names should be avoided. 

2. Certain exeq card options ( see the section "1410/ 
7010 cobol Compiler Requirements") cause the com- 
piler to produce additional output. When not essential, 
these options should not be elected. 

3. It is recommended that, wherever possible, the 
programmer use the picture clause instead of the size, 
point, class, and blank clauses of a Record Descrip- 
tion entry. The picture clause specifies the character- 
istics of an elementary item in a more compact form, 
and can therefore be processed more efficiently. 

Some general suggestions, which may be beneficial 
to the programmer, are given below: 

1. When desired precision of results of arithmetic 
expressions exceeds that represented by picture 
S9(10)V9(10), it is suggested that the appropriate arith- 
metic verbs be used (i.e., add, subtract, multiply, and 
divide), rather than the compute verb. 



2. The normal contents of the monitor-switch, in 
the Resident Monitor's Communication Region, is a 
blank. Therefore, it is recommended that the user 
either: (a) not assign a blank value to a meaningful 
condition of this switch; or ( b) let the blank value indi- 
cate that the switch has not been set. 

3. Since Load mode deals with word marks, the user 
should remember the following, when reading or writ- 
ing tape in Load mode: 

a. Reading a file in Load mode, processing it, 
and writing the file in Load mode should pre- 
sent no problems, if the files have been de- 
scribed properly. 

b. Writing in Load mode from information that 
has been read in other than Load mode, may 
cause unwanted word marks to appear in the 
output area. (See "write from.") 

c. When a redefines clause is associated with a 
Load mode input file, the input file must be 
created using a 1410/7010 cobol object pro- 
gram. ( Because of the redefines technique, the 
redefined portion of the Load mode record does 
not carry word marks on tape.) 

4. The read verb with the into area-name option 
should not be used if the record is smaller in size than 
the area specified by area-name. In this case a simple 
read followed by a move should be used. 

5. Care should be taken when using the corre- 
sponding option if data-name-1 or data-name-2 is as- 
sociated with a redefines clause at its own level, or if 
data-name-1 is one of multiple records defined in an 
input file. In either case, the description of data con- 
tained within subsequent entries where a redefines 
clause has been used is not ignored and will affect the 
results of the statement. 

Compatibility Considerations 

Certain cobol verbs and their associated language 
specifications cannot be defined in compatible terms 
between the 1410/7010 Systems and other systems. It 
is suggested that the user avoid the following when 
writing cobol programs that are to be compiled on 
more than one system: 

1. accept 

2. upon option of the display verb 

3. enter 

4. USE 
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For reasons of compatibility, the use of the redefines 
clause should be limited to one level of redefinition, 
with the exception that, if the redefines is specified 
at the 01-level, one additional level of redefinition 
within the level 01 may be used. 

Use of the cobol Character Set (H2) for literals is 
suggested, when compatibility with other systems is 
a consideration. 

The following clauses described in the General In- 
formation Manual are not implemented by the 1410/ 
7010 cobol compiler for reasons of compatibility: 

1. The justified clause. Standard justification ac- 
cording to class definition will always take place. If 
nonstandard data manipulation is required, the pro- 
grammer can use other language specifications for this 
purpose (e.g., the redefines clause). 

2. The Editing clause. Editing functions can only 
be specified by use of the picture clause. 

Qualification of Names 

Every name used in a cobol source program must be 
unique within the source program, either because no 
other name has the identical spelling, or because the 
name exists within a hierarchy of names (so that the 
name can be made unique by mentioning one or more 
of the higher levels of the hierarchy). The higher levels 
are called qualifiers when used in this way, and the 
process is called qualification. 

In addition to the information contained in the Gen- 
eral Information Manual covering the qualification of 
names, the programmer should note the following: 

1. Any name which requires qualification, but is not 
qualified, will refer to the first occurrence of that name 
in the program. 

2. A name plus all its qualifiers cannot exceed a 
total of 300 characters. If it does, an error message is 
produced. 

Literals 

In addition to the rules for forming literals specified 
in the General Information Manual, the following rules 
apply to the 1410/7010 cobol compiler: 

For Forming Numeric Literals: A numeric literal 
must consist of at least one, and not more than 18 
digits. It may also include a sign, preceding the first 
digit, and/or one decimal point. 

For Forming Non-Numeric Literals: Any character 
in the character set, except the quotation mark, the 
record mark, and the group mark, can be used in a 
non-numeric ( alphanumeric) literal. Blanks are treated 
as characters and may be included freely. 



Character Sets 

The ibm Character Set H2 must be used for cobol 
source programs. This character set consists of the 
numerals through 9, the 26 letters of the alphabet, 
and 12 special characters. The ibm 1410/7010 Char- 
acter Set may be used only for alphanumeric literals, 
with the following exceptions: (1) the ibm 1410/7010 
character /B" (substitute blank) cannot be used with 
even-parity tape records; (2) the ibm 1410/7010 char- 
acter "™" (word separator character) cannot be loaded 
into the ibm 1410 or 7010 with a word mark. 

The cobol (Set H2) special characters are shown 
below with their equivalents in the ibm 1410/7010 
Character Set: 



CARD 


COBOL 


1410/7010 


CODE 


( SET H2 ) 


( SET A2 ) 


MEANING 


blank 






space 


11 






\ minus sign 
I hyphen 






12 


+ 


& 


plus sign 


0-1 


/ 


/ 


division sign 


11-4-8 


N* 


* 


j multiplication sign 

/ check protection symbol 






12-4-8 


) 


U 


right parenthesis 


0-4-8 


( 


% 


left parenthesis 


0-3-8 




, 


comma 


11-3-8 


$ 


$ 


dollar sign 


12-3-8 






( period 

/ decimal point 


3-8 


= 


# 


equal sign 


4-8 


i 


@ 


quotation mark 



Figurative Constants 

In addition to the details specified in the General In- 
formation Manual, the following information pertains 
to the figurative constants. All figurative constants are 
treated as belonging only to the alphanumeric class. 



LOW-VALUE 
LOW-VALUES 

HIGH-VALUE 
HIGH-VALUES 

ZERO 

ZEROS 

ZEROES 

SPACE 
SPACES 



QUOTE 



ALL "literal" 



The value of this figurative constant is the 
space, or blank, the lowest in the collating 
sequence. 

This figurative constant is defined as the 
character 9, the highest in the collating se- 
quence. 

This figurative constant represents the value 
0. It is the only figurative constant that can 
be treated as belonging to the NUMERIC 
class or the ALPHANUMERIC class. 
This figurative constant represents a blank, 
or space. It is the only figurative constant 
that can be treated as belonging to the AL- 
PHABETIC class or the ALPHANUMERIC 
class. 

This figurative constant represents the char- 
acter '. Note that the use of the word 
QUOTE to represent the character ' is not 
equivalent to the use of symbol ' to bound a 
literal. 

This figurative constant generates a sequence 
of characters specified by the single-char- 
acter non-numeric literal. 
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TALLY 

The word tally is the name of a data item whose 
picture is S99999. It is used primarily to hold informa- 
tion produced by the examine verb; however, it may 
be referenced by the programmer in any statement 
where a signed numeric field is valid. 

MONITOR-DATE 

In addition to the figurative constants, the ibm 1410/ 
7010 cobol compiler provides the programmer with 
the special data-name constant monitor-date. This 
data-name constant is the name of a five-character 
data item ( system symbol /dat/) within the Communi- 
cation Region of the Resident Monitor, monitor-date 
contains the current date established by the System 
Monitor, and may be used in label-checking routines. 
The form of the date is yyddd, where: yy is the year 
(00-99) and ddd is the day of the year (001-366). 
monitor-date can be used in the same way as any 
item described in the Constant Section. 

Class Conditions 

The General Information Manual specifies that the 
class of a data item may be numeric, alphabetic or 
alphanumeric. It further specifies that the class con- 
dition is used to test an alphanumeric item at object 



time to determine whether it is wholly numeric or 
wholly alphabetic in content. 
The source statement beginning: 
IF FIELD-A IS NUMERIC . . . 

results in a character-by-character check of the value 
of field-a at object time. If an operational sign is pres- 
ent in the units position, the associated character will 
be interpreted as being numeric. Thus, -9 is inter- 
preted as "minus 9," not as the letter "R." 
The source statement beginning: 
IF FIELD-B IS ALPHABETIC . . . 

results in a character-by-character check of the value 
of field-b at object time. If each character in field-b 
is alphabetic, the item is considered alphabetic. 

Examples: The following table shows how the class 
of an item is interpreted by the compiler depending on 
which of the class tests is specified: 



CHARACTER 


NUMERIC 


ALPHABETIC 


0-9 


YES 


NO 


SPACE 


NO 


YES 


A-R 


YES ( if units position ) 


YES 


S-Z 


NO 


YES 


? ! 


YES ( if units position ) 


NO 


Other 






Special 






Characters 


NO 


NO 



General Information 27 



1410/7010 COBOL Compiler Requirements 



It is assumed in the following material that the user is 
thoroughly familiar with the contents of the publica- 
tion, System Monitor. 



Requirements for Compilation 

In order to process a cobol source program under the 
ibm 1410/7010 Operating System, certain control cards 
are required to direct the operation of the Resident 
and Transitional Monitors and the Linkage Loader. 
The required Monitor control cards are: 

MON$$ JOB 

MON$$ MODE 

MON$$ EXEQ 

MON$$ ASGN 

The required Linkage Loader control cards are: 

PHASE 
CALLN 
CALL 

These control cards are described in detail in the 
publication, System Monitor. However, certain cobol 
options, which are available to the user, are discussed 
below. 

EXEQ Card Operand Options 

The user can control the output of the cobol compiler 
by placing operands immediately after the comma 
which follows the third System Monitor option on the 
exeq card. These operands can appear in any order 
and must be separated by commas, with no intervening 
blanks. Any of the following operands may be used: 

1. list — This operand produces a listing of source 
program names and corresponding object program re- 
locatable storage assignments. A check for duplicate 
procedure-names is made if this option is elected. A 
warning message appears if duplicate names are pres- 
ent. 

2. diagnostic — This operand suppresses the creation 
of an object program, (diagnostic cannot be requested 
on the same exeq card with trace or nopch.) 

3. trace— This operand causes the generation of a 
self -tracing object program. When each paragraph or 
section of the main body of the Procedure Division is 
executed at object time, the paragraph or section-name 
is printed on the Standard Print Unit. 

4. nopch — This option should be used only when a 
Go file is being created. The function of nopch is to 



suppress output on the Standard Punch Unit, thereby 
providing an object program on the Go file only. 

In the event of an error in the use of any of these 
options on the exeq card, the compiler will ignore all 
options, and produce only the normal output (an ob- 
ject program on the Go file and/or the Standard Punch 
Unit). 

Figure 17 shows an exeq card for cobol compilation 
with the trace and list options. 



Line 



Label 



Operation 
!8 8fi 



riiO,^*,*. 



E.X.&.Q. 



H- 



.1S_ 



OPERANDI 
JS «P ,, 



CO.B.O.U. , , j. r ,T,RA,C,E, , ,L. I ,ft,T, 



_l I I— J L- 



Figure 17. exeq Card for cobol Compilation 

Requirements for Execution 

The object program produced by the cobol compiler 
consists of several subprograms. In accordance with 
the requirements of the Linkage Loader, each sub- 
program is headed by a title card. 

The Subprogram TITLE Card 

The cobol compiler generates all necessary title card 
information based on the source program. 
The format of the title card is: 



Column 



16 21 31 36 

TTTLEPROGRAMnnnxxxxxzzzzz 



73 
nnnsssss 



6 
yyddd 

where 

yyddd is the current date taken from the Resident Monitor's 
Communication Region. 

PROGRAM is the first seven characters of the IDENT field of 
the PROGRAM-ID card in the source program. 

nnn is the subprogram number, assigned serially by the com- 
piler. This number is placed in columns 28-30 and 
columns 73-75. 

xxxxx is the lowest relocatable storage address occupied by 
the subprogram. 

zzzzz is the character count of common storage used by the 
subprogram. 

sssss is the sequence-number field of the cards (or card im- 
ages ) in the subprogram. The sequence number of each 
title card will always be 00001. 

IDENT Field of the PROGRAM-ID Card 

In order to comply with 1410/7010 Operating System 
requirements, the following restrictions pertain to 
completing the ident field: 

1. It must always begin with an alphabetic char- 
acter. 
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2. It cannot begin with the characters "ib". 

3. It cannot contain the slash ( /) or any blank char- 
acters. 

If these requirements are not met, the compiler will 
replace the erroneous character with "A". For example, 
if the ident field contains ibpsd/d/, the title cards 
will contain iAPSDAAnnn. 

Multiple Subprogram COBOL Output 

The following list shows the subprogram serial num- 
ber and function in the normal output of a compilation: 



SERIAL NO. 
001 



002 



003 
004 



SUBPROGRAM FUNCTION 

Storage allocation and value declarations for 
Identification, Environment, and Data Divi- 
sions 

Storage allocation and value declarations for 
Procedure Division literals 
Object code for Procedure Division 
Overlay addresses 



Control Card Requirements 

The sequence of the appropriate Monitor and Linkage 
Loader control cards needed to compile and execute 



the program with the ident "payrollI" using the trace 
option is shown in Figure 18. 

The subprogram ibcobol is a required part of every 
object program. It must be requested with a calln 
card immediately after the phase card. 

cobol programs that have been compiled can be 
added to the System Library file. ( For details, see the 
publication, System Monitor.) The call requirements 
for executing these programs from the System Library 
file are the same as those for the Go file. 

Immediately following the calln card for ibcobol 
(Figure 18 ) is a call card for the first of the just-com- 
piled subprograms. The name used in this card con- 
sists of the first seven characters of the ident field 
(payroll) and the serial number, 001. The other three 
subprograms (payroll002, payroll003, and pay- 
roll004) are processed by the Linkage Loader in re- 
sponse to imbedded calls that the compiler generates 
for each set of subprograms. 

The Linkage Loader places the relocated program 
on the Job file, from which it is loaded by the Resident 



(etc.) 



MOW EXEQ NAME, MJB 



CALL FAYROLL001 



CALLN IBCOBOL 



PHASENAME 



MON$$ EXEQ LINKL0AD 



MON$$ ASGN LIB, B2 



MON$$ ASGN MJB, Al 



(SOURCE PROGRAM PAYROLLI) 



Or 1 



MON$$ EXEQ COBOL , , , TRACE^ 



M 



MON$$ ASGN MGO, A2 



MON$$ MODE GO 



MONS$ JOB ONE 



Figure 18. Sample Control Cards for a Compile-and-Go Opera- 
tion 



Object program from 
source program with 
IDENT "PAYROLLI" 



(etc.) 



MON$$ EXEQ NAME, MJB 




Figure 19. Sample Control Cards for Execution 
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Monitor (exeq name, m jb ) . Note that the name used 
in the exeq card for the program must be the same as 
that used in the phase card given the Linkage Loader, 
but need not be the same as that used in the ident 
field given the compiler. 

The sequence of the appropriate Monitor and Link- 
age Loader control cards necessary to "execute" the 
program with the ident "payroll].", compiled at a 
prior time is shown in Figure 19. 



In Figure 19, the object program has been taken 
from the Standard Punch Unit and is submitted to the 
Linkage Loader from the Standard Input Unit ( rather 
than from the Go file, as in Figure 18). The basic 
difference between the two examples ( Figures 18 and 
19) is that in Figure 19 a call card is not used for the 
subprogram payrollOOI, because the title card of a 
subprogram placed in the Standard Input Unit serves 
the call function. 
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Appendixes 



Mppenaix A:tu 


'CUL 1 


words 




DIVISION 


INSTALLATION 


The words listed below 


constitute the complete 


IBM 




INTO 


cobol vocabulary. 


Words preceded by an asterisk (*) 


*ELECTRONIC-SWITCH 


I-O-CONTROL 


are not implemented by the 1410/7010 cobol compiler 


^ELIMINATION 


*IOCS 
*IOHSK 


but should be avoided when assigning names to da^a, 


ELSE 


etc., to avoid unnecessary difficulty in converting 1410/ 
7010 cobol programs to other ibm systems. 


END 

ENDING 
*ENDING-FILE 


I-O-SWITCH 
IS 


Programmers are cautioned that the words recog- 


ENDING-LABEL 


LABEL 


nized by the 1410/7010 


cobol compiler can be used 


ENDING-REEL 


LEADING 


in a cobol source 


program only as specified in 


this 


ENTER 


LEFT 


publication, or in the General Information Manual 




ENVIRONMENT 


LESS 










EOF-SIU 


^LIBRARY 


ACCEPT 




CHARACTERS 




EQUAL 


LOAD 


ADD 




*CHECKPOINT-UNIT 




ERROR 


LOCATION 


*ADDRESS 




CLASS 




EVEN 


LOCK 


*ADDRESSES 




CLOSE 






*LONG-LENGTH-RECORD 










EVERY 


AFTER 




COBOL 




EXAMINE 


*LOW 


ALL 




*COLLATE-MACHINE- 




EXIT 


LOW-VALUE 


ALPHABETIC 




SEQUENCE 






LOW-VALUES 


ALPHANUMERIC 




COMMUNICATION- 




FD 




ALTER 




MODE 






*MEMORY 










FILE 


ALTERNATE 




COMPUTATIONAL 




FILES 


MODE 


AN 




*COMPUTATIONAL-l 




FILE-CONTROL 


MONITOR-DATE 


AND 




*COMPUTATIONAL-2 




FILE-IDENTIFICATION 


MONITOR-SWITCH 


APPLY 




COMPUTE 




FILLER 


MOVE 


ARE 




CONFIGURATION 




FIRST 


♦multiple 


AREA 




CONSOLE-PRINTER 




FOR 


MULTIPLY 


AREAS 




*CONSOLE-SWITCH 




FROM 




ASSIGN 




CONSTANT 






NEGATIVE 


AT 




^CONTAIN 




GIVING 


NEXT 


AUTHOR 




CONTAINS 




GO 


NO 


AUTHORS 




^CONTROLS 






*NO-LENGTH-CHECK 










GREATER 






*COPY 






*NONE 


*BCD 












CORRESPONDING 




*HEADER-LABEL 












NON-STANDARD 


BEFORE 




*CRE ATION-D ATE 




*HIGH 












*NO-OVERLAP 


BEGINNING 




*CREATION-DAY 




HIGH-VALUE 


*NO-PRINT-STORAGE 


BEGINNING-LABEL 




*CREATION-YEAR 








*BEGINNING-REEL 








HIGH-VALUES 


*NO-RELEASE 


*BINARY 




DATA 




*HYPERTAPE-UNIT 


NOT 


BLANK 




DATE-COMPILED 




*HYPERTAPE-UNITS 


*NO-TAPE-MARK 


BLOCK 




DATE-WRITTEN 






NOTE 


*BLOCKS 




DECLARATrVES 




IBM-1410 


NUMERIC 


BY 




*DENSITY 




IBM-7010 








DEPENDING 




IDENTIFICATION 


OBJECT-COMPUTER 


CALL 




DIGIT 




IF 


*OBJECT-PROGRAM 


CARD-PUNCH 




DIGITS 




IN 


OCCURS 


CARD-READER 




DISPLAY 




INPUT 


ODD 


CHARACTER 




DIVIDE 




INPUT-OUTPUT 


OF 

Appendixes 
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OFF 


♦SHORT-ALPHA-WORD 


OMITTED 


♦SHORT-LENGTH-RECORD 


ON 


SIGNED 


OPEN 


SIZE 


OPEN-WITHOUT-REWIND 


SOURCE-COMPUTER 


*OPTIONAL-USAGE 


SPACE 


OR 


SPACES 


OTHERWISE 


SPECIAL-NAMES 


OUTPUT 


STANDARD 




STATUS 


PADDING 


STOP 


PARITY 


SUBTRACT 


PERFORM 


♦supervisor 


PICTURE 


SYNCHRONIZED 


PLACE 


♦SYSTEM-INPUT-UNIT 


PLACES 


SYSTEM-OUTPUT- 


POINT 


PRINTER 


POSITIVE 


SYSTEM-OUTPUT-PUNCH 


*PREASSEMBLED 




PRINTER 


TALLY 


♦PRIORITY 


TALLYING 


PROCEDURE 


TAPE-UNIT 


PROCEED 


♦TAPE-UNITS 


PROGRAM-ID 


THAN 


*PROGRAM-START 


THEN 




THROUGH 


QUOTE 


THRU 


QUOTES 


TIME 




TIMES 


READ 


TO 


RECORD 


♦TRAILER-LABEL 


RECORDING 


♦typewriter 


*RECORD-MARK 




RECORDS 


♦UNIT-RECORD-I-O- 


REDEFINES 


RECORD 


REEL 


UNTIL 


*REELS 


UPON 


*REEL-SEQUENCE- 


USAGE 


NUMBER 


USE 


♦REFERENCE 


USING 


REMARKS 




RENAMING 


VALUE 


REPLACING 


VARYING 


RERUN 




RESERVE 


WHEN 


RETENTION-PERIOD 


WITH 


REWIND 


*WITH-LABELS 


RIGHT 


♦wiTHOUT-LABELS 


ROUNDED 


*WORDS 


RUN 


WORKING-STORAGE 




WRITE 


SECTION 




SECURITY 


ZERO 


SELECT 


ZEROES 


SENTENCE 


ZEROS 



Appendix B: Organization of Source Program 

Some items which may appear in a source program are 
required, while others are optional. Whether an item 
is required or optional may be determined by reading 
the discussion of each individual cobol word in this 
publication. The order of appearance of the divisions 
is mandatory and all divisions must be present. Certain 
sections within the divisions must also appear as speci- 
fied, while others have no rigid rules. The items which 
may appear in a source program are the following: 

IDENTIFICATION DIVISION. 
PROGRAM-ID. program-name. 
AUTHOR, author-name. 
INSTALLATION. ... 
DATE-WRITTEN. . . . 
DATE-COMPILED. . . . 
SECURITY. . . . 
REMARKS. . . . 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. . . . 
OBJECT-COMPUTER. . . . 
SPECIAL-NAMES. . . . 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. SELECT . . . 
I-O-CONTROL. APPLY . . . 

DATA DIVISION. 
FILE SECTION. 
FD file-name-1 . . . 

01 data-name- 1 . . . 
02 data-name . . . 
03 data-name . . . 
88 condition-name . . . 



02 data-name 



01 data-name . . 



FD file-name-2 . . . 



FD file-name-n . . . 

WORKING-STORAGE SECTION. 

77 data-name . . . 

88 condition-name . . . 



77 data-name . . 



01 data-name . . . 
02 data-name 
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CH data-name . . . 
02 data-name . . . 
03 data-name . . . 
88 condition-name 



02 data-name . . . 



01 data-name 



CONSTANT SECTION. 

77 data-name . . . 



section-name-2 SECTION. 



section-name-n SECTION. 
paragraph-name-1. . . . 



paragraph-name-2. 



paragraph-name-n. 



77 data-name . . . 
01 data-name . . . 
02 data-name . 



01 data-name . . . 
02 data-name . . . 
03 data-name 



02 data-name . . 



01 data-name . . 



PROCEDURE DIVISION. 
DECLARATIVES. 
section-name SECTION. USE 
paragraph-name. . . . 
END DECLARATIVES. 
paragraph-name. . . . 



section-name-1 SECTION. 
paragraph-name-1 .... 



paragraph-name-2. 



paragraph-name-n. 



Appendix C: 

Object Time Error Analysis and Messages 

The following object time conditions will cause im- 
mediate job termination. The messages will appear on 
the Standard Print Unit and control will be trans- 
ferred to the Resident Monitor's Unusual End of Pro- 
gram. (For details see the System Monitor publication.) 

INVALID EXPONENTIATION 

An attempt to raise zero to the zero power has been 
detected. 

SUBSCRIPTING ERROR 

A subscript that is zero, negative, or out of range (of 
the array), has been detected. 

INVALID COMPLEX PERFORM 

Object program has failed to follow cobol rules for 
perform. To locate this error it is suggested that the 
program be recompiled and executed using the trace 
option. 

zero divisor 

An attempt to divide by zero has been detected. 

UNALTERED STATEMENT nnnnn 

A go to statement which required ALTERing was exe- 
cuted prior to being ALTERed. 

If the program being run was compiled in the trace 
mode, the name of the paragraph in which this error 
occurred appears as the last paragraph-name on the 
Standard Print Unit. 

If the program being run was not compiled in the 
trace mode, nnnnn is the relocated address of the 
unaltered go to statement. 
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Appendix D: Diagnostic Messages 

This appendix includes all the diagnostic messages 
produced by the 1410/7010 cobol compiler, and their 
meanings. The messages are listed by division, with a 
"general" section for messages which can occur in more 
than one division. 

Normally, when a diagnostic message appears on the 
source program listing, an incomplete object program 
will be produced. The compiler will continue to exam- 
ine the entire source program for further errors but 
terminates object program output. However, some 
messages are merely warnings to the programmer, and 
do not necessarily affect the compilation of the source 
program. A "W" preceding a message in this appendix 
indicates a warning-type message. Also indicated (for 
warning-type messages) are any assumptions the com- 
piler may make about the intent of the statement in 
question. 

Source Program Listing 

The following information is included to assist the pro- 
grammer to better understand the source program 
listing: 

1. An "S" appearing to the left of a statement, or 
group of statements, indicates that the programmer- 
supplied sequence numbers are out of sequence. (This 
is a warning and does not affect compilation.) 

2. The four-digit number appearing on the extreme 
left of the source program Procedure Division listing is 
a card reference number assigned by the compiler. 

3. Source statements and diagnostic messages for the 
Identification, Environment, and Data Divisions ap- 
pear interspersed in the source program listing. 

4. Diagnostic messages for the Procedure Division 
appear in one section of the source program listing. 

5. A message will appear indicating the storage allo- 
cated to the main program. This allocation does not in- 
clude any optional subprograms called by the user or 
by the compiler. 

6. One of the following messages appears on the 
Standard Print Unit if compilation of the source pro- 
gram has been prevented: 

a. short length work file (i/o operation) 

Appears if one of the work files (mwI, mw2, or mw3) 
assigned for the cobol compiler is not of sufficient 
length. Compilation is terminated and control passes 
to the Resident Monitor's Special -End-of -Program 
routine. (See the publication, System Monitor, for 
details.) 

b. ****** OBJECT PROGRAM INCOMPLETE ****** 

Appears if there are errors in the source program 
which cannot be corrected by the cobol compiler. It 
is the terminating message of a cobol compilation in 



which a source error prevented the generation of a 
complete object program, unless diagnostic has been 
specified on the exeq card. (See 7, below. ) If this is a 
compile-and-go operation, the Go file is cancelled. 

c. uncorrectable i/o error in (phase name) 

Appears if there is some uncorrectable input or out- 
put error. Compilation is terminated and control 
passes to the Resident Monitor's Special-End-of-Pro- 
gram routine. (See the publication, System Monitor, 
for details.) 

d. ****** SOURCE PROGRAM INCOMPLETE ****** 

Appears if the four cobol Divisions are not found in 
the source program. Compilation is terminated and 
control passes to the Resident Monitor's Special-End- 
of-Program routine. (See the publication, System 
Monitor, for details.) If this is a compile-and-go oper- 
ation, the Go file is cancelled. 

In conjunction with messages a, b, and c, the follow- 
ing messages appear on the console printer: 

10980 short length work file (i/o operation) 

10990 OUTPUT INCOMPLETE— SOURCE ERROR 
10999 OUTPUT INCOMPLETE — i/o ERROR 

(phase name) 

7. The following message appears on the Standard 
Print Unit, and is the terminating message for a cobol 
"diagnostic" run. 

****** END OF DIAGNOSTIC RUN ****** 



General 

The messages appearing below can occur in more than 
one division. 

W DUPLICATE CLAUSE KEYWORD 

A clause keyword has appeared more than once in 
an entry. 

W INVALID CONTINUATION CARD 

Blank continuation card. It is ignored. 

W INVALID LITERAL SYNTAX 

Record mark or group mark found in a VALUE 
clause or a non-numeric literal format error. 

W KEYWORD DIVISION MISSING 

Presence of the word DIVISION is assumed. 

W REFERENCE FORMAT ERROR 

One of the format rules has been broken but is 
ignored by the compiler. (See the General Infor- 
mation Manual. ) 

W SYNTAX CHECK DISCONTINUED WITH "X" 

The syntactical form of the input statements does 
not conform to COBOL syntax. "X" is the word 
initiating the erroneous source data. 

W SYNTAX CHECK RESUMED WITH "X" 

A valid syntactical form is recognized after the 
occurrence of the above message. "X" is the word 
with which checking is resumed. 
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Identification Division 

W INVALID IDENTIFICATION ASSIGN IDENTIFI- 
CATION "X" 

Columns 73-80 invalid. Value of "X" is assigned by 
the compiler. 

W SEARCH FOR IDENTIFICATION 

The keyword IDENTIFICATION has not been dis- 
covered in its proper position. 

W SEARCH FOR PROGRAM-ID 

The keyword PROGRAM-ID has not been dis- 
covered in its proper position. 

Environment Division 

W ASSIGN CLAUSE MISSING 
Self-explanatory. 

W CONFIGURATION SECTION MISSING 
Self-explanatory. 

W CONFIGURATION SECTION OUT-OF-ORDER 

Self-explanatory. 

W DUAL OBJECT-COMPUTER SPECIFICATION 
IBM 1410 and IBM 7010 specified. 

W DUAL SOURCE-COMPUTER SPECIFICATION 
IBM 1410 and IBM 7010 specified. 

W FILE-CONTROL PARAGRAPH MISSING 
Self-explanatory. 

W INPUT-OUTPUT SECTION MISSING 
S elf -explanatory . 

W INVALID APPLY CLAUSE SYNTAX 

The clause is ignored. 

W INVALID APPLY LITERAL 

More than one padding character, or invalid pad- 
ding character. 

W INVALID ASSIGN CLAUSE SYNTAX 
The clause is ignored. 

W INVALID DEVICE-NAMES CLAUSE SYNTAX 
The clause is ignored. 

W INVALID LABEL RECORD SIZE 

Beginning-Label or Ending-Label record is greater 
than 120 characters. 

W INVALID RENAMING CLAUSE SYNTAX 
The clause is ignored. 

W INVALID RERUN CLAUSE SYNTAX 
The clause is ignored. 

W INVALID RESERVE CLAUSE SYNTAX 

The compiler assumes there are NO ALTERNATE 
AREAS. 

W INVALID SELECT SYNTAX 

SELECT not followed by ASSIGN, RESERVE, or 
RENAMING. 

W INVALID SPECIAL-NAMES PARAGRAPH SYNTAX 
The paragraph is ignored. 

W INVALID SWITCH-NAMES CLAUSE SYNTAX 
The clause is ignored. 



W KEYWORD SECTION MISSING 
Self-explanatory. 

W MISSING PERIOD 
Self-explanatory. 

W NO I-O-CONTROL PARAGRAPH 

Self-explanatory. 

W NO SECTION HEADING 
Self-explanatory. 

W OBJECT-COMPUTER PARAGRAPH MISSING 
Self-explanatory. 

W PARAGRAPH INVALID IN THIS SECTION 

Processing will take place as if SECTION were 
correct. 

W PARAGRAPH OUT-OF-ORDER 

Self-explanatory. 

W SOURCE-COMPUTER PARAGRAPH MISSING 
Self-explanatory. 

W UNDEFINED APPLY FILE-NAME 

File used in APPLY clause not defined. 

W UNDEFINED RENAMING FILE-NAME 

File used in RENAMING clause not defined. 

W UNDEFINED RERUN FILE-NAME 

File used in RERUN clause not defined. 

Data Division 

W 77-LEVEL OUT-OF-ORDER 

Self-explanatory. 

W 88-LEVEL INVALID AT GROUP LEVEL 
Self-explanatory. 

W 88-LEVEL INVALID IN THIS SECTION 

An 88-level appears in the CONSTANT SECTION. 
This entry is ignored. 

W CLAUSE MISSING IN THIS FD 

LABEL RECORDS clause is missing and is as- 
asumed to be omitted; or DATA RECORDS clause 
is missing and is ignored. 

W ENTRY EXCEEDS MAXIMUM CLASS SIZE 

Indicates a numeric item with a size greater than 
18 digits. Class is assumed to be alphanumeric. 

W FD ENTRY RECORD MISSING 

An FD entry has no associated Record Description 
items. File is ignored. 

W FD OUT-OF-ORDER 

FD has been detected in other than File Section. 
Compiler will handle this condition. 

W FILE SECTION OUT-OF-ORDER 

Will be processed as if in proper order. 

W INCOMPATIBLE BLOCK RECORD CLAUSE 

Combination of BLOCK CONTAINS and RECORD 
CONTAINS clause does not agree with one of the 
five allowable formats. 

W INCOMPATIBLE BLOCK RECORD SIZE 

The record size is too large. Record size will be 
used. 
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W INCOMPATIBLE CLASS PICTURE CLAUSE 

Classes as specified by the CLASS and PICTURE 
clauses in a given item do not agree. CLASS clause 
is ignored. 

W INCOMPATIBLE LITERAL 

CLASS or PICTURE does not agree with VALUE 
literal. The compiler ignores this condition and allo- 
cates storage for the literal. 

W INCOMPATIBLE PICTURE POINT CLAUSE 

The assumed decimal point in the POINT clause 
does not agree with the PICTURE. POINT clause 
is ignored. 

W INCOMPATIBLE POINT CLASS CLAUSE 

The POINT clause is not associated with a numeric 
item. POINT clause is ignored. 

W INCOMPATIBLE RECORD SIZE 

The record size as derived from the Record De- 
scription does not agree with the size as stated in 
the RECORD CONTAINS clause. The computed 
record size will be used. 

W INCOMPATIBLE REDEFINES ENTRY 

The size associated with the redefinition is not equal 
to the size of the original area. The size of the 
original is used if the redefined area is greater. 

W INCOMPATIBLE SIGNED PICTURE CLASS 
CLAUSE 

The existence of a sign, specified by the SIGNED 
clause, does not agree with the PICTURE, which is 
non-numeric. The SIGNED clause is ignored. 

W INCOMPATIBLE SIZE CLAUSE AT GROUP LEVEL 
SIZE as specified at group level does not agree with 
the size as calculated from the contained elementary 
items. Group SIZE is made to conform. 

W INCOMPATIBLE SIZE PICTURE CLAUSE 

Size as specified in a SIZE clause does not agree 
with the size given by the PICTURE clause. SIZE 
clause is ignored. 

W INCOMPATIBLE WITH HIGHER LEVEL CLASS 

Class specified for this item does not agree with 
class specified for the group. Group CLASS is 
ignored. 

W INVALID 88-LEVEL 

88-level occurs without a preceding condition vari- 
able ( valid level-number ) . It is ignored. 

W INVALID BLOCK CLAUSE SYNTAX 

The compiler will infer block size from record size. 

W INVALID CLASS SYNTAX 
CLASS clause is ignored. 

W INVALID DATA RECORD CLAUSE SYNTAX 
The clause is ignored. 

W INVALID DEPENDING ON ENTRY 

The DEPENDING ON data name within a given 
RECORD CONTAINS clause either does not occur 
in a subsequent file record, or does not have con- 
sistent specifications in a multi-record file. 

W INVALID EDITING CLAUSE SYNTAX 
Invalid BLANK WHEN ZERO clause. 



W INVALID LABEL RECORD CLAUSE SYNTAX 
Compiler assumes OMITTED. 

W INVALID LEVEL-NUMBER 

The level-number of the first item following an FD 
is not 01. This item is assumed to be a 01-level. 

W INVALID LEVEL-NUMBER SYNTAX 

Invalid level-number sequence. Will be treated as 
if valid; therefore, hierarchical relationships may be 
affected. 

W INVALID LITERAL 

File Identification value is improper. If more than 
10 characters the value is truncated. 

W INVALID LITERAL IS THIS CONTINUATION 
CARD 

Continuation indicator, but first non-blank character, 
not the quote sign. Continuation ignored-literal is 
terminated by end of first card. 

W INVALID OCCURS CLAUSE 

OCCURS clause generates a fourth or higher dimen- 
sion array. The clause is ignored. 

W INVALID OCCURS CLAUSE SYNTAX 
The clause is ignored. 

W INVALID PERIOD 
Self-explanatory. 

W INVALID PICTURE SYNTAX 
The clause is ignored. 

W INVALID POINT CLAUSE SYNTAX 
The clause is ignored. 

W INVALID PUNCTUATION OR SPECIAL 
CHARACTER 

This is ignored. 

W INVALID RECORD SYNTAX 

Syntactical error in RECORD CONTAINS clause. 
The clause is ignored. 

W INVALID RECORDING MODE CLAUSE SYNTAX 

Compiler assumes Move mode and even parity. 

W INVALID REDEFINES CLAUSE SYNTAX 

The redefined data name is undefined or the entries 
redefining an area do not immediately follow the 
original definition of the area, or the redefined data- 
name level-number does not agree with the current- 
name level-number. 

W INVALID SIZE CLAUSE SYNTAX 
The clause is ignored. 

W INVALID SYNCHRONIZED CLAUSE SYNTAX 

The clause is ignored. 

W INVALID U/R SPECIFICATION 

Recording mode specified is invalid for unit record. 
Move mode and even parity is assumed. 

W INVALID USAGE CLAUSE SYNTAX 
The clause is ignored. 

W INVALID VALUE CLAUSE 

VALUE and REDEFINES clauses are in same item. 
VALUE and OCCURS clauses are in same item. 
VALUE in item subordinate to grouped REDE- 
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FINES item. VALUE in item subordinate to grouped: 
OCCURS item. VALUE within a File Section Re- 
cord Description; or VALUE with report item. The 
VALUE is ignored. 

W KEYWORD SECTION MISSING 

The word SECTION does not appear. The compiler 
assumes that it is present. 

W LITERAL EXCEEDS MAXIMUM CHARACTER 
SIZE 120 

Literal will be truncated. 

W LITERAL TRUNCATION 

VALUE exceeds SIZE. This message will also ap- 
pear whenever a VALUE is given to a field whose 
PICTURE includes PICTURE symbol "P" on the 
left. 

W NO CONTINUATION CARD INVALID LITERAL 

No terminal quote sign on current card, or no con-: 
tinuation indicator on next one. Literal assumed; 
terminated at end of first card. 

W NO ENTRY CLASS 

No CLASS or PICTURE for an elementary item. : 
Low order character(s) of the literal will not fit in| 
the field as specified. 

W NO LITERAL WITH 88-LEVEL 

88 is assigned a value of blanks. 

W NO SIZE IN THIS ENTRY 
Self-explanatory. 

NUMBER OF ENTRIES WITHIN GROUP EXCEEDS 
TABLE SIZE— BREAK UP GROUP USING 
REDEFINES OPTION 
Self-explanatory. 

W OCCURS CLAUSE INVALID IN THIS ENTRY 

OCCURS clause associated with a 01 or 77-level: 
item. The clause is ignored. 

W PICTURE CLAUSE INVALID AT GROUP LEVEL | 
PICTURE clause is describing a group item rather 
than an elementary item. The clause is ignored. 

W POINT CLAUSE INVALID AT GROUP LEVEL 

POINT clause is used to describe group rather than 
elementary item. The clause is ignored. 

W PUNCTUATION INVALID IN THIS ENTRY 

One of the punctuation rules has been broken. ( See 
the General Information Manual. ) Punctuation is 
ignored. 

W RECORD CLAUSE MISSING 

RECORD CONTAINS clause is missing. 

RECORD OUT-OF-ORDER 

A Record Description entry within the File Section 
has no associated FD. Item is processed as WORK- 
ING-STORAGE. 

W REDEFINES CLAUSE OUT-OF-ORDER 

REDEFINES clause is not the first clause in an 
item. The clause is accepted. 

W REDUNDANT 88-LEVEL CLAUSE 

A clause other than VALUE is associated with an 
88-level item. This is ignored. 

W SIGNED CLAUSE INVALID AT GROUP LEVEL 

SIGNED clause is used to describe group item \ 
rather than elementary item. This is ignored. 



W UNDEFINED DATA-RECORD 

01 Record not defined in DATA RECORD clause. 

W UNDEFINED ENTRY 

Undefined name in REDEFINES clause or RECORD 
CONTAINS DEPENDING ON clause. 

W UNDEFINED FILE 

FD entry has no associated SELECT clause, or 
invalid SELECT clause. 

W VALUE CLAUSE INVALID AT GROUP LEVEL 

The clause is ignored. 

W WORD EXCEEDS MAXIMUM CHARACTER 
SIZE 30 

The word is truncated. 

W WORKING STORAGE SECTION OUT-OF-ORDER 
This is processed as if in proper order. 

Procedure Division 

(name) IS AN INVALID QUALIFIER IN (name) 
Invalid qualifier is identified by the paragraph in 
which it is used. 

(name) IS AN UNDEFINED NAME IN (name) 
Undefined procedure-name is identified by the 
paragraph in which it is used. 

(name) NOT A CONDITION-NAME 
Self-explanatory. 

(name) OVERSIZE PARAGRAPH 

Paragraph should be broken down into more than 
one paragraph. 

W CONDITIONAL CLASS CONTRADICTION 

Data items of unlike class are being compared, or a 
non-numeric data item is being tested for a sign, 
or a sign test on an unsigned numeric data item. 

W CORRESPONDING OPERATOR INVALID 
REPLACED WITH "X" OPERATOR 

In MOVE, ADD, or SUBTRACT CORRESPOND- 
ING, TO or FROM was missing. "X" will be either 
"TO" or "FROM." 

CORRESPONDING STATEMENT FORMAT ERROR 

Self-explanatory. 

W CORRESPONDING VERB IGNORED 

CORRESPONDING used with other than MOVE, 
ADD, or SUBTRACT. 

EXAMINE OPERAND ERROR 

Attempt to EXAMINE a constant or a literal. 

GO TO STATEMENT MISSING DEPENDING 
Self-explanatory. 

INCORRECT CONDITIONAL EXPRESSION 
Self-explanatory. 

W INCORRECT CONTINUATION 

Continuation card error. Text starts prior to column 
12 of continuation card. Unnecessary continuation 
indicator detected. This condition is ignored. 

W INCORRECT END DECLARATIVES 
The compiler will correct this error. 

INCORRECT LITERAL 

Invalid record mark or group mark. 

INCORRECT LITERAL CONTINUATION 
Non-numeric literal continuation error. 
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W INCORRECT PUNCTUATION 

Incorrect punctuation will be ignored. 

W INVALID ALTER STATEMENT 

Something other than a Paragraph/ Section-name 
follows ALTER; TO PROCEED TO is not specified 
properly; Paragraph/ Section-name does not follow 
TO PROCEED TO; invalid format for compound 
ALTER statements or more than one level of quali- 
fication has been given for Paragraph/ Section- 



INVALID CALL STATEMENT 
Self-explanatory. 

INVALID CHARACTER 

1410/7010 special character meaningless to COBOL 
will be ignored. 

INVALID COMPUTE OPERAND 
Self-explanatory. 

INVALID COMPUTE OPERATOR 
Self-explanatory. 

INVALID CONDITIONAL OPERAND 
Data-name is used incorrectly. 

INVALID CONDITIONAL OPERATOR 

Self-explanatory. 

INVALID CORRESPONDING 

CORRESPONDING option is used incorrectly. 

INVALID DATA-NAME IN ACCEPT STATEMENT 
Self-explanatory. 

INVALID DECLARATIVES 

Section-name does not follow DECLARATIVES. 
The compiler will skip to the next procedure-name 
or END DECLARATIVES. 

INVALID DISPLAY DEVICE 
Self-explanatory. 

INVALID ENTER STATEMENT 
Self-explanatory. 

INVALID EXAMINE STATEMENT 
Self-explanatory. 

INVALID EXIT 

Keyword EXIT appeared in other than a one-word 
paragraph. 

INVALID OPERAND 

Invalid operands, invalid qualification, or more than 
three levels of subscripting. 

INVALID OPERAND AFTER GIVING CLAUSE 
Multiple receiving fields invalid. 

INVALID OPERAND USAGE IN CORRESPONDING 
Multiple receiving field specified in ADD or SUB- 
TRACT CORRESPONDING, or invalid data-name, 
such as literal or elementary item used, or a level 
77 used. 

INVALID PARENTHESIS 
Self-explanatory. 

INVALID PERFORM STATEMENT 
Self-explanatory. 



INVALID STATEMENT 

Missing ENTER COBOL. 

INVALID USE STATEMENT 
S elf -explanatory . 

INVALID WORD AFTER OPEN VERB 
Self-explanatory. 

IS UNDEFINED 

Undefined name. The name will appear on the 
preceding line. 

W LITERAL EXCEEDS 120 CHARACTERS 

Literal will be truncated. 

MISSING AT END IN READ STATEMENT 
Self-explanatory. 

MISSING BY AFTER VARYING IN PERFORM 
STATEMENT 

Self-explanatory. 

MISSING DISPLAY OPERAND ONE 

S elf-explanatory. 

MISSING ERROR AFTER SIZE 
Self-explanatory. 

MISSING FIRST MOVE OPERAND 

Self-explanatory. 

MISSING FROM AFTER VARYING IN PERFORM 
STATEMENT 

Self-explanatory. 

MISSING IF TO MATCH THIS NEXT SENTENCE 
CLAUSE 

Self-explanatory. 

MISSING LEFT PARENTHESIS IN CONDITIONAL 

S elf-explanatory. 

MISSING LITERAL IN EXAMINE STATEMENT 
S elf-explanatory. 

MISSING LITERAL TWO AFTER EXAMINE 
S elf -explanatory . 

MISSING OPERAND ONE IN THIS STATEMENT 
Self-explanatory. 

W MISSING PERIOD BEFORE P/S NAME 

Statement not properly terminated before new para- 
graph/scction-name. 

MISSING PERIOD OR SECTION AFTER 
PROCEDURE-NAME 

Self-explanatory. 

MISSING PROCEDURE IN USE STATEMENT 
Self-explanatory. 

MISSING PROCEDURE-NAME AFTER GO TO 
Self-explanatory. 

MISSING PROCEDURE-NAME IN PERFORM 
STATEMENT 

Self-explanatory. 

MISSING RECEIVING OPERAND 
Self-explanatory. 
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MISSING REPLACING OR BY IN EXAMINE 
STATEMENT 

Self-explanatory. 

MISSING REWIND AFTER NO 
S elf -explanatory . 

MISSING RIGHT PARENTHESIS IN CONDITIONAL 
Self-explanatory. 

MISSING RUN OR LITERAL AFTER STOP 
Self-explanatory. 



MISSING SECOND MOVE OPERAND w 

Self-explanatory. 

MISSING SENTENCE AFTER NEXT 
Self-explanatory. 

MISSING STATEMENT 1 TO MATCH THIS 
OTHERWISE OR ELSE 

The word ELSE or OTHERWISE is used without 

an associated IF statement. 



MISSING TALLYING OR REPLACING IN 
EXAMINE STATEMENT 
Self-explanatory. 

MISSING TIMES IN PERFORM STATEMENT 
Self-explanatory. 

MISSING TO AFTER GO 
Self-explanatory. 

MISSING TO AFTER MOVE 
Self-explanatory. 



MISSING UNTIL AFTER VARYING IN PERFORM w 

STATEMENT 

Self-explanatory. 

MISSING VALID EXPONENTIATE OPERAND 
Self-explanatory. 

MISSING VALID FILE-NAME AFTER 
CLOSE VERB 

Self-explanatory. 

MISSING VALID FILE-NAME AFTER 
OPEN INPUT 

Self-explanatory. 

MISSING VALID FILE-NAME AFTER OPEN 
OUTPUT 

Self-explanatory. 

MISSING VALID FILE-NAME IN READ 
STATEMENT 

Self-explanatory. 

MISSING VALID GO TO DEPENDING OPERAND 

Data-name is missing or is not an integer. 

MISSING VALID OPERAND AFTER BY OR INTO: 

Self-explanatory. W 

MISSING VALID OPERAND AFTER EXAMINE 
Self-explanatory. 

MISSING VALID OPERAND AFTER GIVING W 

Self-explanatory. 



MISSING VALID OPERAND AFTER VARYING 
IN PERFORM 

Self-explanatory. 

MISSING VALID READ AREA-NAME 
Self-explanatory. 

MISSING VALID WRITE AREA-NAME 
Self-explanatory. 

MISSING VALID WRITE RECORD 

Self-explanatory. 

MOVE CLASS CONTRADICTION 

Self-explanatory. 

MOVE OPERAND ERROR 

The receiving field designated is a literal, constant, 
etc. 

MOVE SUBSCRIPT FROM OPERAND 

More than two subscripted data-names have ap- 
peared in the USING option of the CALL verb. 

NO MATCH FOR CORRESPONDING 

No match found for MOVE (one item elementary) 
or Arithmetic (both items elementary numeric). 
Improper qualifications exists for matching data 
items. Matching data items are in secondary rede- 
fined area, or qualified by same. 

PARAGRAPH/SECTION INCOMPLETE IN (name) 
This message occurs if a source error has prevented 
processing of part of a statement or paragraph; or 
a statement implies the existence of a clause or 
statement that is not present. 

POSSIBLE TRUNCATION 

Sending or FROM data-name larger than receiving 
data-name, or storing of arithmetic results where 
digits might be lost. (This message may occur 
where the ROUNDING option is used, and should 
be ignored. ) 

P/S NAME FORMAT ERROR 

Procedure-name not followed by SECTION or 
period. 

QUALIFIED NAME EXCEEDS STORAGE 
ALLOCATION 

Total number of characters has exceeded 300. 

SUBSCRIPT ERROR 

Subscripting used with a data-name not associated 
with an OCCURS clause, or the number of sub- 
scripts used does not agree with the associated data 
description. 

USE VERB MISSING 

In DECLARATIVES, first word after section-name 
SECTION must be USE. Compiler will skip to the 
next procedure-name or END DECLARATIVES. 

WARNING (name) IS A MULTIPLE DEFINED 
NAME 

This message only appears if the LIST option is 

used and a duplicate name occurs. 

WORD EXCEEDS 30 CHARACTERS 
Word is truncated. 
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